






















PAPERCLIP 

“The # 7 Best Selling Word Processing 
Package" 

- BILLBOARD’S computer software chart 

.. by far the best word processor ever 
available for the Atari" - ANTIC 

■ Editing features include Block Move, 
Copy and Delete, Global Search and 
Replace 

■ Enter repetitive words, sentences, or 
paragraphs instantly with Macro Command 

■ Edit two files simultaneously and 
transfer text between documents using 
Dual Text Windows 

■ Automatic Page Numbering, Table of 
Contents, Headers and Footers 

■ Editing screen extends up to 130 
columns wide and scrolls in any direction 

■ Print Preview displays formatted text 
exactly as it will be printed 

■ Automatically saves files as you write 
NEW! SPELL PACK FOR THE 130XE 
WITH A 36,000 WORD DICTIONARY 
WITH ON SCREEN WORD SEARCH. 

B/GRAPH 

“Graph-generating and statistical analysis 
...we recommendB/Graph! - INFOWORLD 

■ graph up to three factors with 100 data 
points each 

■ choose pie charts, line and area graphs, 

2 and 3 dimensional bar charts and more 

■ convert instantly between graph types 
without re-entering data 

■ full screen editor, multiple grid and 
graph scaling, automatic labelling, 
overlays, “slide show” capability 

■ statistical analysis functions include 
standard deviation, variance, Chi-square, 
regressions, plotting and many more 

■ reads and writes to VisiCalc DIF - use 
VisiCalc files with B/Graph and vice-versa 

■ compatibile with most popular printers, 
printer cards, interfaces 


HOMEPAK 

.. inexpensive, powerful, integrated 
software. As such, HomePak is the winner of 
Info World’s Best Buy Award. ” 

- INFOWORLD MAGAZINE 

. quite simply, the best ...the highest 
rating possible.” - ANALOG COMPUTING 

Three easy-to-use programs on one disk: 

1. HOMETERM TELECOMMUNICATIONS 

■ Puts you in touch with bulletin boards, 
public databases and on-line services 

■ Powerful user-defined Macro facility - 
log on to your favorite service or bulletin 
board with just one command 

■ Store up to 10 macros per document 

■ X-Modem protocol, the virtual on-line 
standard 

■ Download files of any virtually any 
length 

■ Flexible data handling - save incoming 
text to disk, edit it, print it 

2. HOMETEXT WORD-PROCESSOR 

■ Over 20 full-screen editing and 
formatting features: move & copy, 
word-wrap, justification, automatic paging 
and many more 

■ What You See Is What You Get 
(WYSIWYG) - screen is an exact 
representation of the printed page 

■ Supports most major printer functions 
including boldface, underlining and 
extended characters 

3. HOMEFIND DATABASE MANAGER 

■ Natural English-language data 
entry/retrieval system for simplified 
electronic filing 

■ Includes the key search/sort functions, 
flexible queries, easy output commands 
and sophisticated Report Composer 

All three HomePak programs reside in 
memory together - it’s easy to transfer 
data between them and perform integrated 
tasks. 


AND FOR THE ATARI ST. 




ha*® 


AND COMING SOON: PAPERCLIP ELITE, CONSULTANT, B/ GRAPH ELITE, BTS, THE SPREADSHEET, AND MORE! 


BATTERIES 

INCLUDED 


BATTERIES INCLUDED, an TIM company. 30 Mural Slreet, Richmond Hill, Ontario, Canada, LIB 1B5 (416)881 9941, Customer Information (416)881-9816. 
If you can’t find this product at your local retailer, you may order it direct from us at the full suggested list price plus $5.00 for postage and handling. For 
product orders please call 1-800-387-5707 (U.S. only). For most Batteries Included products you can always have the latest version of your program by 
returning the original disk and $10.00. Write to us for our full color catalog of products for the APPLE, APPLE MACINTOSH, ATARI, ATARI ST, 
COMMODORE, COMMODORE AMIGA, AND IBM SYSTEMS. 

<: 1986 Batteries Included. APPLE, APPLE MACINTOSH, ATARI, ATARI ST, COMMODORE, COMMODORE AMIGA, AND IBM are registered trademarks 
respectively of APPLE COMPUTERS INC., ATARI CORPORATION, COMMODORE BUSINESS MACHINES INC., AND INTERNATIONAL BUSINESS MACHINES INC. 

Some features may vary with computer system used. 


Integral 

Solutions 


•AS COMPILED FROM NATIONAL RETAIL SAITS REPORTS FOR WEEK ENDING JANUARY 5.1985 
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UTILITY 





M/L Editor 

For use in machine language entry 


by Clayton Walnum 


M/L Editor provides an easy method to en¬ 
ter our machine language listings. It won’t al¬ 
low you to skip lines or enter bad data. For 
convenience, you may enter listings in mul¬ 
tiple sittings. When you’re through typing a 
listing with M/L Editor, you’ll have a com¬ 
plete, runnable object file on your disk. 

There is one hitch: it’s for disk users only. 
My apologies to those with cassette systems. 

Listing 1 is M/L Editor’s BASIC listing. 
Type it in and, when it’s free of typos, save 
a copy to disk, then run it. 

On a first run, you’ll be asked if you’re 
starting a new listing or continuing from a 
previously saved point. Press S to start, or 
C to continue. 

You’ll then be asked for a filename. If you’re 
starting a new listing, type in the filename 
you want to save the program under, then 
press RETURN. If there’s already a file by that 
name on the disk, you’ll be asked if you wish 
to delete it. Press Y to delete the file, or N 
to enter a new filename. 

If you’re continuing a file, type in the name 
you gave the file when you started it. If the 
program can’t find the file, you’ll get an er¬ 
ror message and be prompted for another file¬ 
name. Otherwise, M/L Editor will calculate 
where you left off, then go on to the data en¬ 
try screen. 

Each machine language program in ANA¬ 
LOG Computing is represented by a list of 
BASIC data statements. Every line contains 
16 bytes, plus a checksum. Only the numbers 
following the word DATA need be con¬ 
sidered. 

M/L Editor will display, at the top of the 
screen, the number of the line you’re current¬ 
ly working on. As you go through the line, 
you'll be prompted for each entry. Simply 
type the number and press RETURN. If you 
press RETURN without a number, the default 
is the last value entered. 

This feature provides a quick way to type 
in lines with repetitions of the same number. 
As an added convenience, the editor will not 
respond to the letter keys (except Q, for 
“quit”). You must either enter a number or 
press RETURN. 


When you finish a line, M/L Editor will 
compare the entries’ checksum with the 
magazine’s checksum. If they match, the 
screen will clear, and you may go on to the 
next line. 

If the checksums don’t match, you’ll hear 
a buzzing sound. The screen will turn red, 
and the cursor will be placed back at the first 
byte of data. Compare the magazine listing 
byte by byte with your entries. If a number’s 
correct, press RETURN. 

If you find an error, make the correction. 
When all data’s valid, the screen will return 
to grey, and you’ll be allowed begin the next 
line. 

Make sure you leave your disk in the drive 
while typing. The data is saved continuously. 

You may stop at any time (except when you 
have a red screen) by entering the letter Q for 
byte #1. The file will be closed, and the pro¬ 
gram will return you to BASIC. When you’ve 
completed a file, exit M/L Editor in the same 
way. 

When you’ve finished typing a program, 
the file you’ve created will be ready to run. 
In most cases, it should be loaded from DOS 
via the L option. Some programs may have 
special loading instructions; be sure to check 
the program’s article. 

If you want the program to run automati¬ 
cally when you boot the disk, simply name 
the file AUTORUN.SYS (make sure you have 
DOS on the disk). 

That’s M/L Editor. Use it in good health. 6-1 


The two-letter checksum code preced¬ 
ing the line numbers here is not a part 
of the BASIC program. For further in¬ 
formation, see the BASIC Editor II, in 
issue 47. 


Listing 1. 
BASIC listing. 


AZ 10 DIN BF(16), NS(4>.ASCII,BS(1>,F$(15> 
, FIS (15) 

LF 11 DIM MODS(41 

BN 26 LINE=1000:RETRN=155:BACKSP=126:CHKS 
UM=8:ED1T=0 

GO 30 G05UB 450:POSITION 10.6:7 'Btart or 
Continue? ";:G05UB 500:2 CHR$(A) 


ZG 40 POSITION 10,8:? ''FILENAME"; :INPUT F 
S:POKE 752,1:? " " 

FE 50 IF LEN (FS) <3 THEN POSITION 20,10:? 

" ":G0T0 40 

MF 60 IF F$tl,2><>"»:" THEN FlS="D:":Fl$( 
3)= F$:GOTO 80 
NL 70 FlS-FS 

IN 80 IF CMOS CAT-"5" THEN 120 
FD 90 TRAP 430:OPEN 02,4,0,Fl$:TRAP 118 
HO 188 FOR X“1 TO 16:GET H2,A:NEXT X:LINE 
=LINE*10:GOTO 108 

HM 110 CLOSE 02 : OPEN 02,9.6,FlS:GOTO 170 
UT 120 TRAP 160 : OPEN 02,4,0 , FIS : GO5U0 440 
:P05ITI0N 16,18:? “FILE ALREADY EXISTS 
M":POKE 752,0 

ZU 130 POSITION 18,12:? "ERASE IT? "JiGOS 
UB 500:POKE 752,1:? CHRS(A) 

UH 148 IF CHRS(A>-"N" OR CHRS(AJ="n" THEN 
CLOSE 02:GOT0 30 

OG 158 IF CHRS (A) <>"Y" AND CHRS (A) <>"<)" I 
HEN 130 

BH 160 CLOSE 02:OPEN 02,8,8,FlS _ 

IE 170 G05UB 450: POSITION 10,1:? " LTilfilM 
ICR: ";LIHE:CHKSUM-0 
GH 180 Ll=3:FOR X-l TO 16:P0SITI0N 13»(X< 
10)*12*(X>9),X+2:P0KE 752,0:? "BYTE O" 
;X;": :GOSUB 316 

KH 190 IF EDIT AND L=8 THEN BYTE=BF(X):GO 
TO 210 

FY 280 BYTE = V0L (NS) 

OZ 201 MODS=NS 

BU 210 POSITION 22,X+2:? BYTE;" " 

YZ 220 BF(X)=BYTE:CHK5UM=CHKSUM«BYTE»X:IF 
CHKSUM)9999 THEN CHK5UM=CHK5UM-18008 
MS 230 NEXT X:CHK5UM=CHK5UH+LINE:IF CIIK5U 
M/9999 THEN CHKSUM=CHKSUM-16 008 
IG 240 POSITION 12,X+2:POKE 752,0:? "CHEC 
K5UM: ";:L1-4:G05UB 310 
EM 258 IF EDIT AND L=0 THEN 270 
OM 260 C=VAL(N$> 

5Y 270 POSITION 22,X+2:? C;" " 

IL 280 IF C=CHKSUM THEN 300 

DI 290 GOSUB 440:EDIT=1:CHKSUM=0:GOTO 180 

LM 300 FOR X=1 TO 16:PUT 02,BF(X>:NEXT X: 

LIHE~LINE+10:EDIT-0:GOTO 170 
F« 310 L=0 

LG 320 GOSUB 500:IF A=A5C("0"> AND X=1 AN 
D NOT EDIT THEN 420 

PO 330 IF OORETRN AND AOBACKSP AND (A<4 
B OR A>57) THEN 320 

DX 331 IF OORETRN AND NS = "" THEN NS=MODS 
ID 335 IF A=RETRN AND L = 0 AND X>1 THEN 35 
0 

JR 348 IF ((A=RETRN AND NOT EDIT) OR A=B 
ACKSP) AND L“0 THEN 320 
DM 350 IF A=RETRN THEN POKE 752,1:? " ":R 
ETURN 

GG 360 IF AOBACKSP THEN 400 

SA 378 IF L>1 THEN NS=NS(1,L-l):GOTO 398 

AS 380 NS="" 

RE 390 ? CHRS(BACKSP);:L-L-1:G0T0 320 
BB 400 L=L+1:IF L>L1 THEN A=RETRN :GOTO 35 
0 

MX 410 NS(L)=CHR$(A):? CHRS(A);:GOTO 320 
KN 420 GRAPHICS 0:END 

YT 430 GOSUB 448:P0SITI0N 10,10:? "NO SUC 
H FILE!" :FOR X=1 TO I800:NEXT X'.CLOSE 
02:GOTO 30 

FD 440 POKE 710,48:SOUND 0.180,12,8:FOR X 
=1 TO 50:NEXT X:SOUND 0,8,8,0:RETURN 
MY 450 GRAPHICS 23:P0KE 16,112:P0KE 53774 
,112:P0KE 559,0:POKE 710,4 
HR 460 DL=PEEK(560)T256KPEEK(561)44:POKE 
DL“1,70:POKE DL+2,6 

HM 478 FOR X=3 TO 39 STEP 2:P0KE DL*X,2:N 
EXT X:FOR X=4 TO 40 STEP 2:P0KE DL?X,8 
:NEXT K 

ZH 480 POKE DL+41, 65:POKE DL+42,PEEK(560) 

:POKE DL+43,PEEK(561):POKE 87,0 
AC 490 POSITION 2,0:? "analog Ml editor": 
POKE 559,34:RETURN 

HZ 500 OPEN SSl,4,e,"K:" , :GET tti t A: CLOSE HI 
:RETURN 
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48K Disk 


APPLICATION 



by Kevin Peck 

I play a lot of games on my Atari. I used to keep a sheet 
of paper at the computer desk, to jot down my high scores. 
When things got crowded, I would write the current high 
scores on a new paper and keep that one, until it too be¬ 
came nearly impossible to read. Not anymore. I stopped 
playing games long enough to write a custom database for 
my high scores, one that will print out a clean list any time 
I wish. It’s a lot easier to read now. 

To use Hi-Score Display you’ll need to type in Listing 
1, then check it with the BASIC Editor II (see ANALOG 
Computing issue 47). Listing 1 will create four strings con¬ 
taining the machine language routines used in the pro¬ 
gram. Save the program to disk before running it, because 
it will erase itself from memory, leaving the newly creat¬ 
ed lines. These will be the only lines in memory. Enter 
BASIC Editor II into memory and type in Listing 2. After 
you’ve finished, you’ll have the complete Hi-Score pro¬ 
gram. Save it to disk at this time. 

You’ll need nineteen free sectors in single density, or 
ten in double density, to run the program. These sectors 
are necessary for the actual game data. The size of the data 
file, GAME.DAT, will never change. It’s set up to hold a 
maximum of forty-two games, with three scores per game. 
You’ll never have to worry about booting the program 
without enough disk space to add new scores. 

When you first run the program, it will create the blank 
file GAME.DAT on the disk. This will take a few moments, 
and will only occur the first time you run the program. 
After the data file is created, the main menu will appear. 

Next to the words OPEN and USED are two numbers. 


The number beside OPEN will be 42, and the number next 
to USED will be 0. This means that no scores have been 
entered; all forty-two are unused. The number next to 
OPEN will decrease as you add games to the list; the num¬ 
ber next to USED will increase. These two numbers ad¬ 
ded together will always equal 42, the maximum number 
of games per disk that the program can handle. 

At this point, you’re presented with six options. Right 
now, we have no games in our list, so we need to add 
some. We press the 1 key, for “Add New Games and 
Scores.” 

After pressing 1, you’ll see the score entry screen. You’ll 
be asked to enter the program name, which may be up to 
fourteen characters long. If you accidentally pressed 1 
while in the main menu, and you really don’t want to add 
any games to the list, then press RETURN to get back to 
the main menu. 

Back to adding games and scores. . .enter the program 
name, then press RETURN. You may use any characters 
you want, but the name must fit between the two arrows 
above your typing area. If you try to type beyond the 
fourteen-character limit, the program will ignore all ex¬ 
tras. Of course, the name can be less than fourteen 
characters. 

After typing the program name, you’ll be asked for the 
score. You’re allowed three scores per game, and you may 
enter them in any order. The program will sort them after 
you’ve entered all three. Scores may be up to six digits 
long, which allows for scores in the hundred-thousands. 
I know of few games that go into millions of points, so 
this should be more than adequate. The program will al¬ 
low no more than six numbers for this entry, ignoring non- 
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Hi-Score 


continued 


numeric characters and commas, which it places automa¬ 
tically. 

The next data item is the game level at which you ob¬ 
tained the score. Not all games have levels, so you may 
just press RETURN to leave this field blank. You’re allowed 
two characters for the level, and only numbers are allowed. 

Next, you’ll be asked to enter the name of the person 
who attained this score. The name is limited to five charac¬ 
ters, but they may be whatever you wish. Five characters 
allows for two initials, the ampersand (&) and two more 
initials, for those times when two players cooperated to 
get the score (five also happens to be the length of my first 
name). You don’t need to enter all five characters. You may 
want to stick to three, as most arcade games do. 

You must enter at least one score per game. Hi-Score 
will then prompt you to enter the second score. If you don’t 
wish to enter a second, press RETURN. If you do enter 
the second score, you’ll be prompted for the third. 

Now that you’ve entered all the data for this game, you 
have three choices. You may press the O key if all infor¬ 
mation is okay. You may press A to abort this game. When 
you hit A, you’ll be asked if you’re sure you want to abort. 
If you press Y, this game won’t be added to the list, and 
you’ll be asked if you have other games to add. 

If you decide some of the information is incorrect, press 
the C key, to correct the errors. The numbers 1-4 will ap¬ 
pear on the right edge of the screen, indicating various 
pieces of information. If you don’t wish to correct any of 
the information, press the 0 key; otherwise, press the 
number (1-4) that corresponds to the area you want to cor¬ 
rect. If you do correct one of the scores, you’ll have to en¬ 
ter all three pieces of data for that score. Press the 0 when 
finished, and the scores will be sorted. 

After pressing either the A or the O, you’ll be asked if 
you have more entries. If you do, press the Y, and the 
screen will clear for your next entry. If you’re done enter¬ 
ing games, press the N key. All games will be sorted by 
game name, then saved to disk. When this is done, you’ll 
return to the main menu. 

Now that we have some games in our data file, we can 
explore some of the other options on the main menu. Let’s 
go through the rest of the options, in the order they ap¬ 
pear on the screen. 

Option 2 allows you to update the scores of any games 
on file. After pressing 2, you’ll be presented with the game 
selection screen. All games currently on file will be list¬ 
ed to the screen. If you have more than twenty-one games, 
they’ll appear in two columns. Valid keystrokes are shown 
at the bottom of the screen. Press the X key if you wish 
to return to the main menu without making any changes. 

To select a game to update, move the arrow to the prop¬ 
er name by pressing the arrow keys without holding down 
the CTRL key. 

When you’ve selected the game you wish to update, 
press RETURN. The game selected will appear at the bot¬ 
tom of the screen, and you’ll be asked to verify your 
choice. Remember, you may press X at any time during 
the selection process, to abort the operation and return 
to the main menu. 


Once you’ve verified your choice, a new screen will ap¬ 
pear, showing the game’s current scores. You’ll be asked 
for the new score. If you decide not to update the scores 
after all, press RETURN. The new score doesn’t have to 
be a new high score, but it must be greater than the third 
score on the list. If there is no third score, any score will 
be accepted. 

After entering the new score, the Hi-Score program will 
check to be sure it’s eligible. If not, you’ll be asked if you 
want to re-enter the score or abort the update process. 
Press the letter of your choice. 

If the score is valid, you must enter the level and the 
name of the person who obtained the score. 

After entering the information, you’ll have three op¬ 
tions: O for okay, R for re-enter and A for abort. If you 
abort, you’ll be asked to confirm with a Y or an N. 

When the new score is correct, press O for okay. Hi- 
Score will ask if you have more scores to update. If you 
do, press Y. If not, press N. The new information will be 
written to disk, then you’ll return to the main menu. 

Option 3 allows you to delete a game from the list. Af¬ 
ter selecting the game to delete, you’ll be shown the scores 
on the screen. Type the word DELETE at the prompt. Any 
other entry, including a RETURN alone, will abort the de¬ 
letion process. If you delete the game, you’ll be asked if 
you have more to delete. If not, the disk file will be up¬ 
dated, and you’ll return to the main menu. 

Option 4 on the main menu allows you to view your 
scores, six games at a time. The game names will be in 
inverse video, to set them apart from the scores. There are 
three valid keystrokes at this point. They are: M for menu, 
P for previous screen and N for next screen. 

If you’re viewing the first screen of data and have more 
than six games on file, the N will appear on-screen, in¬ 
forming you that there’s more data in the file. You may 
press the N key to view the next screen of scores. 

The P key option will never appear on the first screen 
of data—there’s no previous screen. It will appear on the 
second screen of data and beyond. The N will disappear 
on the last screen. Press the M key at any time to return 
to the main menu. 

Option 5 on the main menu presents you with a new 
menu of four options. All options from this menu will send 
output to the printer. 

The program will ask if you’re using a 40- or 80-column 
printer. I added this option for ease of use with the Atari 
1020 plotter. Most users will press E, to select 80-column 
print. All printed reports will fit on a single 8V2Xll-inch 
sheet of paper. 

The next screen will show you the function selected and 
ask you to check the printer. To cancel the option, hit A 
for abort. If you’re ready to print, press P. After the print 
is complete, you’ll be returned to the print menu. You may 
choose another print function, or return to the main menu, 
where the final option is “Exit Program.” 

Technical notes. 

I wrote four machine language routines for use in Hi- 
Score Display. One changes a string of characters to in¬ 
verse video. One fills lines on the screen with a chosen 
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character. The third pulls game names from the main data 
string for fast display on the select game screen. The fi¬ 
nal routine is a general-purpose, multi-key sort program. 
I used the CIO routines presented in ANALOG Comput¬ 
ing’s issue 13 for the high-speed disk reads and writes. 
I also wrote a custom input routine for use throughout this 
program. 

The only place the screen colors are altered is in Line 
10, so you may use any colors you like by changing the 
POKE values. Since Hi-Score has custom input routines, 
there’s no keyclick on any of the inputs. If this bothers you, 
you’ll have to add some SOUND statements to the input 
routines in Lines 20-200. 

I’ve been using Hi-Score for over a year, making im¬ 
provement as I went along. I hope you’ll enjoy it. H 


Kevin Peck is currently in studying Computer Science. 
He's been working on Atari's for four years, and is in the 
process of reading every book on Atari machine language 
he can get his hands on, in the hope of writing an all- 
machine-language game. 


The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 


Listing 1. 
BASIC listing. 


ttl 10 GRAPHICS 0:POKE 82,2:P0KE 710,145 
SP 20 ? :? :? "NEW":? :? 

MB 30 ? "3730 LF$=";CHR$£34 ); 

BC 40 FOR 1=1 TO 59:READ A:? CHRS£27J;CHR 
S £AJ ; :NEXT I!? CHR$ £343 
US 50 ? "3740 SPS="jCHRSf343J 
XJ 60 FOR 1=1 TO 80:READ A:? CHR$£273;CHR 
$£A3;:NEXT I:? CHRS£343 
FS 70 ? "3750 SP$£813=";CHR$£34); 

IL 80 FOR 1=81 TO 105:READ A:? CHR$£27);C 
HR$ £A3 j :NEXT I:? CHRS£343 
YC 98 ? "3760 R0$=";CHR$£343 J 
CA 100 FOR 1=1 TO 21:READ A:? CHR$£273;CH 
RS fA3; :NEXT I:? CHR$ £343 
OF 110 ? "3770 MKS$=";CHRS£343; 

FS 115 FOR 1=1 TO 80:READ A:? CHR$£273jCH 
R$ fA3 j :NEXT Ii? CHR$£343 
HO 120 ? "3780 MKS$£813=",'CHR$£343J 
US 130 FOR 1=81 TO 160:READ A:? CHR$£273j 
CHRS £A3 ; :HEXT I:? CHR$ £343 
ZI 140 ? "3790 MKSS£1613="jCHRS£343; 

IF 150 FOR 1=161 TO 192 .-READ A:? CHRS£273 
;CHR$£A3;:NEXT I:? CHR$£343 
OB 160 ? "POKE 842,12!GR.0:L." 

MS 170 POSITION O,0:POKE 842,13:ST0P 
NA 2800 DATA 104,104,101,89,133,207,24,10 

4,101,88,133,206,144,2,230,207 
TJ 2010 DATA 104,104,170,104,104,133,203, 
104,104,133,204,104,104,133,205,160 
DU 2020 DATA 0,165,205,145,206,200,196,20 
4,208,249,202,208,1,96,24,165 
RC 2030 DATA 206,101,203,133,206,144,232, 
230,207,208,228 
LN 2040 REM * 59 BYTES 


PZ 300O DATA 184,104,133,206,104,133,205, 
104,104,133,208,104,101,89,133,204 
IZ 301O DATA 24,104,101,88,133,203,144,2, 

230.204.104.104.133.207.104.104 

KS 3020 DATA 133,209,104,104,170,160,0,24 
,177,205,201,244,176,24,201,160 
AF 3030 DATA 176,17,201,128,176,8,201,96, 
176,12,201,32,176,5,24,105 
HH 304O DATA 64,144,3,56,233,32,145,203,2 
00,196,209,208,218,202,208,1 
XI 305O DATA 96,24,165,205,101,208,133,20 
5,144,2,230,206,24,165,203,101 
LE 3060 DATA 207,133,203,144,192,230,204, 
208,188 

YJ 3070 REM * 105 BYTES 

ZX 40O0 DATA 104,104,133,213,104,133,212, 
160,0,177,212,9,128,145,212,200 
RR 4010 DATA 192,16,208,245,96 
FZ 4020 REM * 21 BYTES 

ZO 5000 DATA 216,104,104,133,206,104,133, 

205.104.133.215.104.133.214.104.104 

NL 5010 DATA 133,203,104,104,133,207,24,1 
01,203,133,216,104,104,133,208,104 
DP 5020 DATA 104,133,224,24,101,208,133,2 
09,104,104,133,204,104,104,133,225 
HT 5030 DATA 165,215,133,1,56,165,214,229 
,204,133,0,176,2,198,1,24 
HT 5040 DATA 165,206,133,213,165,205,101, 

204.133.212.144.2.230.213.164.207 

10 505O DATA 177,205,209,212,240,4,144,53 
,176,28,200,196,216,208,241,165 
DX 5060 DATA 208,240,46,164,224,177,205,2 
09,212,246,4,144,32,176,7,200 
IY 507O DATA 196,209,208,241,240,27,165,2 
25,208,23,160,0,177,205,72,177 
LY 508O DATA 212,145,205,104,145,212,200, 

196.204.208.241.240.4.165.225.208 

PT 5090 DATA 233,24,165,212,101,204,133,2 
12,165,213,105,0,133,213,197,215 
ZK 5100 DATA 208,172,165,212,197,214,208, 
166,24,165,205,101,204,133,205,165 
UX 5110 DATA 206,105,0,133,206,197,1,208, 
134,165,205,197,0,208,128,96 
AO 5120 REM * 192 BYTES 


Listing 2. 

BASIC listing. 

MU 10 GOSUB 3700:POKE 709,C0:POKE 710,156 
:P0KE 82,C2:POKE C752,C1:P0KE 712,144: 
GOTO 340 

JB 20 . . ..AS=.AS£14)=" ":AS £C23=A$:? 

AF 30 POKE 702,C64:POKE 694,C0:GET »Ci,A: 

IF A> 90 AND A <>126 AND A<>155 THEN 30 
BT 40 IF A<32 OR £A=32 AND PP=C13 THEN 30 

CO 50 IF A = 155 THEN ? .. . ...PPJ :RE 

TURN 

IH 60 IF A = 126 AND PPOC1 THEN ? " 

. . ..GOTO 30 

RB 70 PRINT CHRSfA)j"_F";:ASfPP,PP)=CHRS£ 
A) :PP=PP+C1:IF PP>L THEN 90 
SH 80 GOTO 30 

00 90 GET «C1,A:IF A<>126 AND A<>155 THEN 
90 

HR 100 IF A=126 THEN 60 
KO 110 AS=A$£C1,LJ:RETURN 

PU 120 PP=C1:N$=" ":? :D$="i": 

D=0AL£D$3 

YG 130 GET ttCl, A: IF A = 155 THEN NS = NS£C1,P 
P3 :? " ":RETURN 

FQ 140 IF A=126 AND PP<>Ci THEN ? " 

; : PP=PP-C1:NS£PP.PP)=" ":G0T0 130 
OC 150 IF A <48 OR A>57 THEN POKE 694,C0:P 
OKE 702,C64:GOTO 130 
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Hi-Score continued 


SB 

160 PRINT CHR$(A) :NS(PP,PP)=CHR$ 

(A) :PP = PP + C1:IF PP>L THEN 180 

JH 

NB 

170 GOTO 130 


DJ 

180 GET ttCl,A:IF A<>126 AND A<>155 THE 

N 180 

TD 

AO 

190 IF A=126 THEN 140 

HR 

YY 

200 RETURN 

RL 

YP 

210 10=16*10:I0CB=832+I0:P0KE IOCB+2,1 

1! ADRHI = INT(ADDRESS/256) :ADRLO = ADDRESS 
-ADRHI*256 

DS 

NZ 

220 POKE I0CB+4,ADRL0:P0KE I0CB+5,ADRH 

I:HI=INT(BYTES/256):LO=BYTES-256*HI 

DF 

GV 

230 POKE IOCB+8,LO:POKE IOCB+9,HI:I=US 



R (ADR ("hhhujLVQ") , 10) : CLOSE ttIO/16 : RETU 

RN 

ND 

TA 

240 10=16*10:TRAP 270:I0CB=832+I0:POKE 
IOCB+2,7:ADRHI=INT(ADDRESS/256):ADRLO 

KV 


=ADDRESS-ADRHI*256 

NI 

OF 

250 POKE IOCB+4,ADRLO:POKE I0CB+5,ADRH 

I :HI = INT (BYTES/256) :LO = BYTES-256*HI 


MO 

260 POKE I0CB+8,L0:P0KE IOCB+9,HI:I=US 

NA 


R(ADR("hhhELVH"),10) 

XM 

TO 

270 CLOSE 010/16 : RETURN 

FV 

YB 

280 NS=N$(Cl,PP-C1):TEMP$=N$ 

290 IF LEN (NS)>C3 THEN TEMP$ = NS(Cl,LEN 


YR 



(N$)-C3):TEMPS(LEN(TEMPS)+1)=",":TEMPS 

HX 


(LEN(TEMPS)+C1)=NS(LEN(N$)-C2,LEN(NS)) 

ZM 

YZ 

300 RETURN 


PC 

310 ZZ=U5R(LF,C40*YP+XP,LC,C40,C40,FB) 



: RETURN 

CN 

EL 

320 ZZ=USR(LF,C40*YP+XP,LC,C40,BL,FB): 

RETURN 

ER 

WY 

330 ZZ=U5R(SP,TP,C56,YP*C40+XP,C40,14, 

21):RETURN 

XN 

340 FILES="D:GAME.DAT" 

LL 

YS 

350 SCRS$=" ":SCRS$(2352)=" ":5CRSS(C2 



)=SCRS$:I0=2:BYTES=2352:ADDRESS=ADR(SC 

RSS) 

PD 

ZI 

360 ? "6***Reading Data File....":OPEN 

OC1, C4, CO, "K : " 

OJ 

AB 

370 TRAP 380:OPEN OC2,C4,CO,FILES:GOSU 

OC 


B 240:CLOSE OC2:TRAP 40000:GOTO 400 

PK 

EH 

380 ? "**+Data File does not exist.":? 
"*Creating new Data File." 

GC 

BI 

390 CLOSE «C2!TRAP 4O000:OPEN ttC2,C8,C 

0,FILES:GOSUB 210:CLOSE OC2 

VD 

IM 

400 FOR I=C1 TO 2352 STEP C56:IF SCRSS 



(1,1)=" " THEN NXGM=I:POP :GOTO 420 

NH 

SI 

410 NEXT I:NXGM=I 


YU 

420 NXGM=INT(NXGM/C56) 

AI 

LV 

430 •> "K HTGH SCORFS 

NF 


"1 IISFD 1 

OPEN |":TRAP 3610 

ZM 

440 ? "-- ■ 

":P0S11 ION C3+(NXGM\C10),1:? NXG 

M: POSITION 31+(42-NXGM<10),1:? 42-NXGM 

BT 


JM 

450 ? "+ + * + MW Add New Ganes and Sc 

ores!":? " WU Update Scores*":POKE 

RD 



16,112:P0KE 53774,112 

MY 

BN 

460 ? " MM Delete Gane froM File*": 

? " W View Scores on Screen*":? " 

H Print File Menu*" 

OC 

470 ? " Bi Exit Progran":POSITION 2 

,20:? "Enter nunber of your choice > 1 " 

HA 



GM 

DT 

480 POKE 694,C0:GET OCl,A:IF A<48 OR A 
>54 THEN 480 

UD 

AM 

490 ON A-48 GOTO 510,2200,2770,1540,30 

30,500 

KN 

506 ? "KReMove disk and store in a saf 

SX 


e place.":POKE C752,C0:POKE 16,192:P0K 

E 53774,247!CLR :END 

FI 

510 IF NXGM<42 THEN 580 

NO 

GC 

520 ? "is**unable to add any More GaMes 
to list. There are no open areas.*" 

CB 

YM 

530 ? "You have two options open to yo 
u now. 1. Copy the Main PrograM onto a 

IN 


nother disk and start a new "; 

KD 


540 ? "list or 2. DeletesoMe of the Ga 


Mes that you know longerplay or care a 
bout frOM this list to "J 
550 ? " free up space. ****'■: ? "Press | 
a to return to Main Menu." 

560 IF PEEK(C764)<>18 THEN 560 
570 POKE C764jC255:G0T0 430 
580 ? "H 

":POSITION 13,5:? __ 

1)=C0:A(C2)=C0:A(C3)=C0:TLEVEL$=" 

590 POSITION 6,9:? _ 

■:n:M ":sLEUELS=" ":tname$=" 
eS=" ":tscore$=" ":sscore$=" " 


ADD NEW GAMES TO LIST 
PROGRAM NAME 


0 cc 


LEVEL 


":SNAM 


600 YP=18:XP=0:FB=O:LC=6:GOSUB 31O:P0S 
ITION 15,18:? "t + t+" 

605 position 2,22:? "Press RETURN only 
to Exit" 

610 POSITION 2,19:? "PrograM Nawe ";:L 
=14:GOSUB 20:GAME$=A$:IF A$=" " AND UP 
FLAG=0 THEN 1240 

620 IF A$=" " THEN POP :G0T0 1240 
630 POSITION C20-(LEN(A$)/C2),07:? AS 
640 FOR 1=1 TO NXGMKC56 STEP C56-.IF AS 
=SCRS$(I,I+LEN(AS)-C1) THEN POP :GOTO 
660 

656 NEXT I:GOTO 730 

660 GOSUB 310:POSITION 0,16:? "This ga 
Me exists on file.":? "If you wish to 
update the "; 

670 ? "scores, use op tio n 2 froM the m 
ain Men u■ V 1 :? "Press MU to Abort":? " 

4 to Re-enter with new naMe." 
680 IF PEEKCC764J<>63 AND PEEK(C764)<> 
40 THEN 680 

690 IF PEEK(C764)=63 AND UPFLAG=C1 THE 
N POP 

7O0 IF PEEK(C764)=63 AND DOWRITE=C0 TH 
EN POKE C764,C255:G0T0 430 
710 IF PEEKCC764)=63 THEN POKE C764,C2 
55:GOTO 1300 

720 POKE C764,C255:G0T0 510 
730 IF UPFLAG=C1 THEN RETURN 
740 GOSUB 310:POSITION 2,22:? "Enter N 
UMbers only. No coMMas." 

750 POSITION 14,18:? "fc + fc+":P05I 

TION 2,19:? "Enter Score ";:L=6:GOSUB 
120:SCORE$=N$:IF N$=“ " THEN 750 
760 A(1)=VAL(NS)IGOSUB 280:SCORES=TEMP 

5 


770 POSITION 13-LENCSCORES),11:? SCORE 


780 GOSUB 310:POSITION 2,22:? "Press R 
ETURN only if none.":POSITION 14,18:? 
"ifc* t+" 


790 POSITION 2,19:? "Enter Level ";:L= 
2IGOSUB 120:LEVEL$=N$:IF N$=" " THEN L 
EVEL$=" " 

80O POSITION 21-LEN(LEVELS),11:? LEVEL 

810 GOSUB 310:POSITION 13,18:? "t+ 
t<-“:POSITION 2.19:? "Enter Nane ";:L= 
5:GOSUB 20:IF A$=" " THEN 810 
820 NAME$=A$:POSITION 27,11:? NAMES:IF 
UPFLAG=1 THEN RETURN 
830 GOSUB 310:P0SITI0N 2,22:? "Optiona 
1 InforMation":? "RETURN only to leave 
blank"; 

840 POSITION 14,18:? "t* t+":POSI 

TION 2,19:? "Enter Score ";:L=6:G05UB 
120:SSCORES=N$ 

850 IF N$=" " THEN SLEVEL$=" ":SNAMES= 
" ":A(C2)=C0:IF UPFLAG=C1 THEN RETURN 
860 IF N$=" " THEN 107O 


870 A(C2)=UAL(NS)IGOSUB 280 : SSCORE$ = TE 
MP$ 

880 POSITION 13-LENCSSCORES),13:? 5SC0 
RES 

890 GOSUB 310:POSITION 14,18:? "fc + t+ 
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":P05ITI0N 2,23:? "RETURN only to leav 
e blank"; 

SN 900 POSITION 2,19:? "Enter Level ";:L= 
2:GOSUB 120:SLEVELS=N$:IF N$=" " THEN 
5LEVEL$=" " 

YW 910 POSITION 21-LENCSLEVELS),13:? SLEV 
EL$ 

VH 920 GOSUB 310:P0SITI0N 13,18:? 

t+":POSITION 2,19:? "Enter Na«e ";:L= 
5:GOSUB 20 

UV 930 IF A$ = " " THEN 920 

CE 940 SNAME$=A$:POSITION 27,13:? SNAMES! 

IF UPFLAG=1 THEN RETURN 
GR 950 GOSUB 310:P0SITI0N 2,22:? "Optiona 
1 Information":? "RETURN only to leave 
blank"; 

KL 960 POSITION 14,18:? "t + t+":P05I 

TION 2,19:? "Enter Score ";:L=6:GOSUB 
120:TSCORES=N$ 

MM 970 IF N$=" " THEN TLEVELS=" ":TNAMES= 
" ":ACC3)=C0:IF UPFLAG-C1 THEN RETURN 
NV 980 IF N$=" " THEN 1070 

DR 990 ACC3)=VALCNS) :GOSUB 280:T5C0RES=TE 
MP$ 

JL 1000 POSITION 13-LENCTSCORES),15:? T5C 
ORES 

TU 1010 GOSUB 310:POSITION 14,18:? "t + \ 

+":POSITION 2,23:? "RETURN only to lea 
ve blank"; 

EV 1020 POSITION 2,19:? "Enter Level ";:L 
=2:GOSUB 120:TLEVEL$-N$:IF NS = " " THEN 
TLEVEL$=" " 

AH 1030 POSITION 21-LENCTLEVELS),15 : ? TLE 
VEL$ 

OL 1040 GOSUB 310:P05ITI0N 13,18:? "t + 

t+":POSITION 2,19:? "Enter Nawe ";:L 
=5:GOSUB 20 

CB 1050 IF A$ = " " THEN 1040 

CH 1060 TNAMES=A$:POSITION 27,15!? TNAME$ 
:IF UPFLAG-1 THEN RETURN 
VP 1070 GOSUB 310:IF ACC1)>ACC2) AND AtC2 
3>AtC3) THEN 1210 
YL 1080 IF A CC13 > A CC3) THEN 1110 
GT 1090 T=ACC1):ACC1)=ACC3):ACC3)=T:TEMPS 

:=tname$:tnameS=name$:name$=temp$ 

PD 1100 TEMPS-SCORES:SC0RES-T5C0RE$:TSC0R 
E$=TEMP$:TEMP$-LEVELS:LEVELS=TLEVELS:T 
LEVELS-TEMPS 

AG 1110 IF A (Cl)> A CC2) THEN 1140 

AR 1120 T = A CCD: A CCD =A CC2):ACC2)-T:TEMPS 

-sname$:sname$=name$:name$=temp$ 

MX 1130 temp$=slevel$:slevel$=levelS:leve 
lS=slevel$:tempS=sscoreS:sscore$=score 

$:SC0RES=TEMP$ 

EZ 1140 IF A CC2) > A CC3) THEN 1170 
ER 1150 T=ACC2) :ACC2)=ACC3) :ACC3)=T:TEMPS 
-5NAME$:SNAMES-TNAME$:TNAMES-TEMP$ 

QR 1160 TEMPS-SLEVEL$:SLEVEL$-TLEVEL$:TLE 
VEL$=TEMP$:TEMPS=SSCORE$:SSCORE$=TSCOR 
ES:TSCORE$=TEMP$ 

UM 1170 YP^ll:GOSUB 310:YP-18:POSITION 13 
-LENCSCORES),11:? SCORES:POSITION 21-L 
ENCLEVELS),11:? LEVELS 
MN 1180 POSITION 27,11:? NAMES:POSITION 1 
3-LENCSSC0RE$),13:? S5C0RES:POSITION 2 
1-LENCSLEVELS),13:? SLEVELS 
ZT 1190 POSITION 27,13:? SNAMES:POSITION 
13-LENCTSCORES),15:? TSCORES:POSITION 
21-LENCTLEVELS),15:? TLEVELS 
SE 1200 POSITION 27,15:? THA MES 
RU 1210 POSITION 2,19:? "Elall Ok E 
■ Correct Errors":? :? Abort" 

YM 1220 POKE C702,C64:POKE C694,C0:GET «C 
1, A:IF A <> C65 AND A<>79 AND A<>67 THEN 
1220 

CF 1230 IF A <> C65 THEN 1290 
YQ 1240 GOSUB 310:POSITION 2,18:? "Ready 
to ABORT":? :? "Are you sure CYes/No) 


AL 

OG 

FU 

BO 

MX 

JL 

RV 

NO 

VV 

MA 

PD 

DZ 

ZG 

BM 

GT 

KP 

XA 

GB 

EG 

HF 

MV 

JY 

XE 

MR 

XH 

IC 

AX 

BT 

HC 

OC 

KB 

GB 

BU 

VX 

JL 

10 

JB 

YN 

MM 

ZG 

MV 

KX 


1250 POKE C702,C64:POKE C694,C0:GET OC 

1, A : IF A<>C89 AND AOC78 THEN 1250 

1260 IF A=C78 THEN YP=18:XP=0:LC=6:FB= 

OiGOSUB 310:GOTO 1210 

1270 IF DOMRITE=CO THEN 430 

1280 POSITION 2,18:? "This entry Abort 

ed.":GOTO 1400 

1290 IF A<>79 THEN 1430 

1300 YP=19:LC=5:G0SUB 310:YP=18:LC=6:P 
OSITION 2,20:? " Any wore entries CYe 
s/No)? "; 

1310 POKE C702,C64:POKE C694,C0:GET «C 
1,A:IF A<>C89 AND AOC78 THEN 1310 
1320 I=NXGM*C56+C1:SCRS$Cl,1+13)= GAMES 
:SCR5SCI+21-LENCSC0RE$),1+20)^SCORES!S 
CR5$CI + 23-LEN CLEVEL$),1+22)^LEVELS 
1330 SCRSSCI+23,1+27)=NAMES:SCRS$CI+35 
-LEN CSSCORES),I+34)=SSC0RES:SCRS$CI+37 
-LENCSLEVELS),1+36)=SLEVEL$ 

1340 SCR5$CI+37,I+41)=SNAMES 

1350 SCRS$CI + 49-LEN CTSCORES),1 + 48)=T5C 

ORES:SCRS$CI+51-LENCTLEVELS),1+50)=TLE 

VEL$:SCR5SCI+51,1+55)=TNAMES 

1360 NXGM=NXGM+Ci:D0HRITE=C1 

1370 IF A <> C89 THEN 1400 

1380 IF NXGM<42 THEN 510 

1390 YP=19:LC=5:GOSUB 310:YP=18:LC=6:P 

OSITION 2,17:? "All 42 spaces filled." 

1400 POSITION 2,19:? "Saving all Chang 

es to Disk.":? "EHJ": DOMRITE-O 

1410 ZZ = USR CMKS,ADRCSCRSS),ADRCSCR5S) + 
NXGMK56,14,0,8,0,56,0) 

1420 OPEN tt2.8,0,FILES:BYTE5=2352:ADDR 
ES5=ADRCSCRSS):I0=2:G0SUB 210ITRAP 400 
00:GOTO 430 

1430 GOSUB 310:POSITION 2,18j? "Mhich 
to Correct ? ":? :? "Press KHi if all 


are correct."; 

1440 POSITION 33,7:? "t+ 1":P0SITI0N 3 
3,11:? "t+ 2":P0SITI0N 33,13:? "t+ 3": 
POSITION 33,15:? "t+ 4" 

1450 POKE C694,CO:GET ttCl,A:IF A<48 OR 
A>52 THEN 1450 

1460 A=A-48:IF A=CO THEN 1070 

1470 FB=0:YP=18:FB=0:GOSUB 310 

1480 UPFLAG=Cl:XP=0:LC=i:FB=0:ON A G05 

UB 1500,1510,1520,1530 

1490 UPFLAG=C0:GOTO 1430 

1500 YP=7:GOSUB 310:YP=18:LC=6:GOTO 68 


LL SCORES 


1550 


1510 YP=ll:GOSUB 310:YP=18:LC=6:GOTO 7 
40 

1520 YP=13:GOSUB 310:YP=18:LC=6:GOTO 8 
30 

1530 YP = 15:GOSUB 310:YP=18:LC=6:GOTO 9 

50 _ 

1540 ? "IS": POSITION 10,0:? "■HlBKl 
1 ! IF NXGMOC0 THEN 1580 
? " ++N o games on file to see.":? 

" + Press W to Continue" 

1560 IF PEEK CC764) 018 THEN 1560 
1570 POKE C764,C255:G0T0 430 
1580 NX=C6:PR=C0 

1590 N=C0:P05ITI0N 16,22:? "BMenu"; :I 
F NX<NXGM THEN POSITION 2,22:? "KMext 
": N=C1 


16O0 PS- C8:IF PR>CO THEN POSITION 29,2 

2:? " U revious":PSzCl 

1610 IF NX> NXGM THEN NX = NXGM 

1620 X=C2:Y=C3:F0R I = PR TO NX-Ci:P=I*5 

6 + C1 

1630 TEMP$=" ":GAMES-SC 

RS$CP,P+13):FOR Z-14 TO Cl STEP -Cl 
1648 IF GAMESCZ,Z)<>" " THEN POP :GOTO 
1660 

1650 NEXT Z 

1660 0 = C9-INT CZ/C2) : TEMPS CQ, (1+Z-Cl) =GA 
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Hi-Score 


continued 


ME$ : U 
AS 1670 
+ 2 : ? 
+22J ; 
ZJ 1680 

• II II ■ 
/ / 
+ 41) 

HD 1690 

• II II • 

I J 

+ 55) 
UR 1700 
OF 1710 
FJ 1720 
IR 1730 
1, A 

RK 1740 
OU 1750 
GL 1760 
GE 1770 
R + C6 : 
ACl 1780 
R-C6: 
YD 1790 


LL SCORES 


XH 1800 


=USR(RV,ADR(TEMP$)) 

POSITION X, Y : ? TEMPSiPOSITION X,Y 
SCRS$(P + 14,P + 20)"j 5CRS$ CP + 21,P 
■' "jSCRS$(P+23,P+27) 

POSITION X,Y + 3:? SCRS$ (P + 28, P + 34) 
SCR5$(P + 35, P + 36)j" ";SCRSS (P + 37,P 

POSITION X,Y + 4i? SCRS$ (P + 42, P + 48) 
SCRSS(P + 49, P + 50)j" ";SCRSS (P + 5I,P 

IF X=C2 THEN X=21:G0T0 1720 
Y-Y+C6:X-C2 
NEXT I 

POKE C702,C64:POKE C694,C0:GET BC 

IF N-CO AND A=C78 THEN 1730 
IF PS=CO AND A=80 THEN 1730 
IF A-77 THEN 430 

IF N = C1 AND A=C78 THEN PR=NX:NX=P 
GOTO 1790 

IF PS=C1 AND A=80 THEN NX=PR:PR=P 
GOTO 1790 

? "IS" :POSITION 10,0:? 

“IGOTO 1590 

"IS" :POKE C752,C1:P0SITI0N 0,0:? 

"; TEMP$; "HH 


LIST OF A 


Select Gane to 



SO 1810 XP=C0:YP=CO:LC=23:FB=C128:BL=Ci:G 
05UB 320:XP=39:GO5UB 320 
TV 1820 IF NXGMOC0 THEN 1870 
HG 1830 ? "++No Gawes on file. Use Option 
1 on the Main Menu to add gawes and s 
cores to file." 

WQ 1840 ? "++Press to Continue" 

CW 1850 POKE C702,C64:P0KE C694,C0:GET BC 
1,A : IF A <> 67 THEN 1850 
AK I860 GN^CO:RETURN 

GN 1870 XP=C4:YP=C1:TP=ADR(SCRSS):G0SUB 3 
30 

WU 1880 XP=22:TP-ADR(5CRS$)+1176:G05UB 33 
0 

BS 1890 XP=0:YP-22:LC=2:GOSUB 310:P0SITI0 


WN 


IB 1910 POSITION X, Y : ? "=>" 

HW 1920 POKE C702,C64:POKE C694,C0:GET ttC 
1,A : IF A = 88 THEN GN = C0:RETURN 
RI 1930 IF A-155 THEN 2090 
JY 1940 IF A=45 THEN DY=Y-C1:G0T0 2020 
LF 1950 IF A=61 THEN DY=Y+C1:G0T0 2050 
CX I960 IF A=42 THEN DX=C20:GOTO 1990 
NO 1970 IF A=43 THEN DX=C2:G0T0 1990 
TI 1980 GOTO 1920 

CZ 1990 IF DX-C20 AND NXGM<22 THEN DX = C2 
RY 20O0 IF DX-C20 AND Y>NXGM~C20 THEN DY= 
NXGM-21 

RD 2010 GOTO 2080 

OS 2020 IF DY <C1 AND X = C20 THEN DY = NXGM~2 
1 

OR 203O IF DY<C1 AND X = C2 AND NXGM>21 THE 
N DY-21 

PH 2040 IF DY<C1 AND X = C2 THEN DY^NXGM 
NF 2050 IF DY> 21 THEN DY = C1 
AI 206O IF DY> NXGM THEN DY = C1 
01 207O IF X-C20 AND DY>NXGM~21 THEN DY=C 
1 

HJ 2O80 POSITION X,YI? .X=DX:Y=DY:GOT 

0 1910 

BO 209O GN=Y:IF X=C20 THEN GN=GN+2i 
ER 210O TEMP$ = SCR5S((GN-C1)*C56 + C1, (GN-C1 
) *056 + 14) : TEMPS (15) -“ ":U-U5R(RV,ADR( 
TEMP$)) 

TO 2110 XP=0: YP=22;LC-2:G 0SUB 310:P05ITI0 
N 3,22:? "■E3B3E3QI ,, ;temp$; 

OP 2120 POSITION 0,23:? 

: POSITION 10,10:? 

UN 2130 POKE C702,C64:POKE C694,C0:GET BC 


Is This corre 


PS 

sc 


CZ 

ME 

KP 

UC 

MP 

DC 

OE 

LT 

DE 

EE 

ZG 

AX 

KB 

GL 

MB 

KD 

RY 

VF 

AO 

00 

IF 

YC 

00 

WC 

EV 

CB 

DZ 

VZ 

CH 

SH 

TM 

WU 

FH 

GS 

LW 


SD 

WG 


1, A : IF A<>C78 AND AOC89 THEN 2130 
2140 IF A = C89 THEN RETURN 
2150 YP-22:LC-2:XP=Q:F B=128:G0SUB 3 10: 
POSITION 0, 23!? "M S 

CI U 0 KillmJ 77 ; 

2160 POSITION 10,10:? 

2170 POKE C702,C64:P0KE C694,C0:GET BC 
1, A: IF AOC65 AND A<>83 THEN 2170 
2180 IF A-C65 THEN GN = CO: RETURN 
2190 POSITION X,Y:? " ":GOTO 1890 
2200 TEMP$- ll fT TJFWJI ,, :GOSUB 1800:IF GN- 
CO AND DOWRITE=CO THEN 430 
2210 IF GN=CO THEN 1400 
2220 GN=(GN-C1)*C56+C1 

2230 GAME$=SCR5$(GN,GN+13):SCORE$=SCRS 
$ (GN+14,GN + 20) !LEUEL$ = SCRS$(GN + 21,GN + 2 
2):NAMES=SCRS$(GN+23,GN+27) 

2240 SSC0RE$=SCRS$(GN+28,GN+34):SLEUEL 
$-5CRS$(GN+35,GN+36):5NAME$=SCRS$(GN+3 
7,GN + 41) :TSC0RE$=5CRS$ (GN + 42,GN + 4 8) 
2250 TLEUEL$=SCRS$(GN+49.GN+50):TNAME$ 
= SCRS$(GN + 51,GN + 55) :TEMPS = SCORE$(1.3) : 
TEMP$(4)=SC0RE$(5.7):A(1)-UAL(TEMPS) 
2260 TEMPS-5SC0RE5(1,3):TEMPS(4)=SSCOR 
ES (5,7) !IF TEMPS-" " THEN TEMPS = " 

O" 

2270 A(C2)=UAL(TEMP$):TEMP$=T5C0RES(Cl 
,C3):TEMPS(C4)-T5C0RE$(C5,C7):IF TEMPS 
z" " THEN TEMPS="0" 

2280 A(C3)=UAL(TEMP$) :? "IS" : POSITION 1 
3,0:? "Update Scores" 

2290 TEMPS-" ":F0R Z=14 

TO Cl STEP -Cl:IF GAMES(Z,Z)<>" " THE 
N POP :GOTO 2310 
2300 NEXT Z 

2310 Q=C9-INT(Z/C2):TEMPS(Q,Q+Z-Cl)-GA 
ME$:U=USR(RU,ADR(TEMPS)) 

2320 POSITION 12,2:? TEMPS:POSITION 12 
,4:? SCORES;" ";LEVELS;" "/NAMES 
2330 POSITION 12,6:? SSCORES;" "jSLEVE 
LS;" "jsnameS 

2340 POSITION 12,8:? TSCORES;" ";TLEUE 

L$;" ";TNAME$ _ 

2350 POSITION 3,12: ? " KHJEEEIiD 


EM LEVEL 


n 


2360 XP=0:YP=20:FB=0:LC=4:GOSUB 310:P0 
SITION 2,22:? "Press ■ only to 

exit" 


2370 POSITION 2,20:? "Enter Score ";:L 
-6:GOSUB 120:IF PP=C1 AND DOWRITErCO T 
HEN 430 

2380 IF PP=C1 THEN 2760 

2390 A (C4)=VAL (NS) :IF A(C4)>A(C3) THEN 
2460 

24O0 YP-20:LC=4:G05UB 310:POSITION 2,2 
0:? "Score "jNSj" to low to be entered 

II 

2410 POSITION 2,22:? "BDi Re-enter | 
Abort"; 

2420 POKE C702,C64:POKE C694,C0:GET BC 
1,A:IF A<>C65 AND A<>82 THEN 2420 
2430 IF A=C65 AND D0WRITE=C0 THEN 430 
2440 IF A=C65 THEN 2760 
2450 GOTO 2360 

2460 GOSUB 280:USCORE$=TEMPS:POSITION 
6,14:? USCORES 

2470 GOSUB 310:POSITION 2,22:? "Press 
only to leave blank" 

2480 POSITION 2,20!? "Enter Level ";:L 
-2:GOSUB 120:ULEUEL$-NS:IF N$=" " THEN 
ULEVELS=" " 

2490 POSITION 22,14:? ULEVELS 
2500 POSITION 2,20:GOSUB 310:? "Enter 
Nawe ";:L=5:GOSUB 20:IF A$=" " THEN 25 
00 

2510 UNAMES=AS:POSITION 32,14:? UNAMES 
2520 GOSUB 310: POSITION 2,20 ;? "U al 
l Ok ill Re-enter":? :? "ES Abort" 
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BF 2530 POKE 702,64:P0KE 694,0:GET 81,A:I 
F A = 65 AND D0WRITE=0 THEN 430 
CJ 2540 IF A-C65 THEN 2760 
TD 2550 IF A-82 THEN 2230 
CK 2560 IF A = 79 THEN 2580 
SA 2570 GOTO 2530 

AU 2580 D0WRITE=C1:IF A(C4)<A(C1) THEN 26 
10 

OJ 2550 T5C0RE$zSSC0RE$:TLE0EL$=SLEUEL$:T 
NAME$=5NAME$:5SC0RE$=5C0RE$:SLEUEL$=LE 
UEL$:SNAME$=NAME$ 

BR 2600 SCORE$=U5CORE$:LEVEL$=ULEUEL$:NAM 
E$rUNAME$:GOTO 2640 
GC 2610 IF A (C4)<A CC2) THEN 2630 
PE 2620 TSC0RE$-5SC0RE$:TLEVEL$-5LEUEL$:T 
NAME$=SNAME$:SSCORE$=USCORE$:SLEVEL$=U 
LEVEL$:5NAME$=UNAME$:G0T0 2640 
PX 2630 TSCORE$=USCORE$:TLEUEL$=ULEUEL$:T 
NAME$=UNAME$ 

AG 2640 I-GN:SCRS$(I,I+13)=GAME$:SCRS$£I+ 
21-LEN (SCORES),I+20)^SCORES:SCRS$(I+23 
-LEN(LEVEL$),1+22)=LEVEL$ 

WI 2650 SCR5$CI+23,I+27)=NAME$:5CR5$CI+35 
-LEN (SSCORES),1 + 34)=SSCORE$:SCRS$ CI + 37 
-LEN (SLEUELS),1+36)=SLEOEL$ 

MN 2660 SCRS$(I+37,I+41)=SNAME$ 

PG 2670 5CRS$(I+49-LEN£TSC0RE$),I+48)-TSC 
ORES:SCRS$ CI + 51-LEN (TLEVELS),1 + 50)=TLE 
UEL$:SCRS$(1+51,1+55)=TNAMES 
IN 2680 XP=0:YP=4:LC=19:FB=0:GO5UB 310 
JL 2690 POSITION 12,4:? SCRS$CI+14,1+20); 
“ ";SCRS$£1+21,1+22)”;SCRS$£I+23,I+ 
27) 

TM 2700 POSITION 12,6:? SCRS$(1+28,1+34); 
" ";SCRS$£1+35,1+36) ; "; SCRSS tI + 37,1 + 

41) 

BU 2710 POSITION 12,8:? SCRSStI+42,1+48); 
" ";SCRSS£1+49,I+50) j 11 ";SCR5$£I+51,I+ 
55) 

OT 2720 POSITION 2,20:? "Other Games to U 
pdate (Yes/No) 

LH 2730 POKE C702,C64:POKE C694,C0:GET 8C 
1,A!IF A<>C89 AND AOC78 THEN 2730 
WI 2740 IF A = C89 THEN 2200 
PO 2750 GOTO 1400 

El 2760 XPnO:YP=18:LC=6:G0SUB 310:P05ITI0 
N 2,18:? "Ab orted ■ 11 : GOTO 2720 
GL 2770 TEMPS = " 5I : GOSUB 1800:IF GN = 

CO AND DOWRITE=CO THEN 430 
EH 2780 IF GN=CO THEN 3020 
PJ 2790 GN= (GN-C1)*C56+Ci 

LW 2800 GAME$=SCRS$CGN,GN+13):SCORE$=SCRS 
$(GN+14,GN+20):LEUEL$~SCR5$(GN+21,GN+2 
2):NAMES-SCRSS(GN+23,GN+27) 

DH 2810 SSC0RE$-SCRS$(GN+28,GN+34):5LEUEL 
$=SCRS$ CGN+35,GN + 36) :SNAME$=SCRS$CGN + 3 
7,GN + 41) :T5C0RE$ = SCRSStGN + 42,GN + 4 8) 

HP 2820 TLEUEL$=SCR5$(GN+49,GN+50):THAMES 
=SCRS$(GN+51,GN+55) 

ZA 2830 ? "IS":POSITION I3,0:? "Delete Gam 
e" 

PD 2840 TEMP$=" ":FOR Z = 14 

TO Cl STEP -Cl!IF GAMESCZ,Z)<>" " THE 
N POP '.GOTO 2860 
NA 2850 NEXT Z 

LC 2860 G=C9-INT<Z/C2) :TEMPS CO,G + Z-Cl)=GA 
ME$:U=U5RCRU,ADRCTEMPS)) 

5X 2870 POSITION 12,2:? TEMPS!POSITION 12 
,4:? SCORES;" "JLEVELS;" ";NAME$ 

HE 2880 POSITION 12,6:? 5SC0RES;" ";SLEVE 
LS;" ";SNAMES 

BP 2890 POSITION 12,8:? TSCORES;" ";TLEUE 
L$;" ";THAMES 

BZ 2900 POSITION 2,17:? "Type full word D 
ELETE to delete this" 

WT 2905 ? "game from the list. Anything e 
Ise willAbort the process." 


UH 2910 POSITION 2,21:L = 6:GOSUB 20:IF AS< 
>"DELETE" AND DOWRITErCO THEN 430 
OR 2920 IF AS<>"DELETE" THEN 3020 
IS 2930 IF GN=2297 THEN 2950 
IJ 2940 5CR5SCGN,2296)=SCRS$tGN+56,2352) 
OG 2950 TEMP$=" ":SCRSS 12297 

,2310)=TEMPS 

PN 2960 SCRSS(2311,2324)=TEMP$:SCRSS£2325 
,2338)=TEMP$!SCRS$(2339,2352)=TEMP$:NX 
GM-NXGM-1:D0WRITE=1 

YJ 2970 YP-17:LC=C7:FB=0:GOSUB 310:P0SITI 
ON 2,17:? "Gawe Deleted." 

JT 2980 position 2,21:? "Any wore games t 
o Delete (Yes/No) ? "; 

IT 2990 POKE C702,C64:POKE C694,C0:GET 8C 
1, A: IF AOC78 AND A<>C89 THEN 2990 
FI 3000 IF A-C89 THEN 2770 

ZI 3010 DOWRITE=CO:POSITION 2,21:? "DUpda 
ting Disk File...":GOTO 1420 
FC 3020 YP=17:LC=C7:FB=C0:G0SUB 310JP0SIT 
ION 2,17:? "^Process Aborted.":GOTO 29 
80 

UT 3030 ? "IS": POSITION 15,0:? "HIGH SCORE 
":P0SITI0N 14,2:? " ■J:»njll=nf +++" 

NO 30 40 ? "Hi AH Games with scoresH":? 

"WM Al l G ames with Top Score only++" 
CO 3050 ? List of Game Hawes Only ++" 
:? "El Return to Main Menu" 

VU 3060 POSITION 2,21:? "Press number of 
your choice >1"; 

OE 3070 POKE C694,C0:GET 8C1,A:IF A<49 OR 
A>52 THEN 3070 

ZX 3080 F=A-48:IF A=52 TH EN 4 30 
ZY 3090 POSITION 2,21:? "aaourty or MM 
ighty Column Printer"; 

EV 3100 POKE C702,C64:P0KE C694,C0:GET «C 
1,A:IF A <>70 AND A<>69 THEN 3100 
HH 3110 CLM=80:IF A=70 THEN CLM=40 
ql 3120 ? "IS":P0SITI0N 12,0:? "Function s 
e1ected":ON F GOTO 3130,3140,3150 
KL 3130 POSITION 7,2:? "Print All Games w 
ith Scores":GOTO 3160 
EN 3140 POSITION 3,2:? "Print All Games w 
ith Top Score Only":GOTO 3160 
TF 3150 POSITION 4,2:? "Print List Of Gam 
e Names On File" 

ZO 3160 POSITION 2,6:? "Please be sure pr 
inter is ON-LINE and r ead y to print." 
BA 3170 POSITION 8,11:? "Q Print":P05IT 
ION 8,13:? "E9 Abort print" 

GC 3180 POSITION 2,17:? "Press Letter of 
Choice >1"; 

NK 3190 POKE C702,C64:POKE C694,C0:GET OC 
1,A:IF A<>C65 AND A<>80 THEN 3190 
UH 3200 IF A=C65 THEN 3030 

PC 3210 TRAP 3520:OPEN 8C4,C8,CO,"P:":TEM 
P$=" "JPOSITION 2,17:? 

"□Printing...." 

BY 3220 ON F GOTO 3230,3370,3470 
PI 3230 S = il2:S1 = C1:? ttC4;TEMP$(Cl,C6) ; :l 
F CLM=80 THEN ? ttC4;TEMPS;TEMPS(Cl, C4) 

;:S=224:51=C3 

SX 3240 ? OC4;"LIST OF ALL GAMES WITH SCO 
RES"!? 8C4!? 8C4 

S5 3250 FOR I=C1 TO NXGMKC56 STEP S:FOR W 
=C0 TO 51:P=W^C56+I:IF P>2352 THEN POP 
:? 8C4:GOTO 3290 

IR 3260 GAME$ = SCRS$(P.P + 13) :FOR Z = 14 TO C 

1 STEP -Cl:IF GAMES(Z,Z)<>" " THEN POP 
IGOTO 3280 

MW 3270 NEXT Z:POP :? 8C4:G0T0 3290 
EA 3280 TEMP$=“ ":G=C9-INT 

(Z/C2):TEMP$(Q,G+Z-Cl)=GAME$:? 8C4;" 

";TEMPS;:NEXT w:? 8C4 
XI 3290 FOR W=CO TO SI:PrW*C56+I:IF P>235 

2 THEN POP :? 8C4IG0T0 3310 

EO 3300 ? 8C4;" ";SCRS$(P + 14,P + C20) ; " " 

;SCRS$ (P + 21, P + 22);" ";SCRSS(P + 23, P + 27) 
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;:NEXT Wi? 8C4 

BK 3310 FOR W=C0 TO 511P = W*C56 + II IF P>235 
2 THEN POP :? 8C4:GOTO 3330 
MX 3320 ? 8C4;" ; SCRSS (P + 28 , P + 34) ; " 

SCRSS(P + 35, P + 36);" "JSCRSSCP + 37,P + 41)j 
INERT MI? «C4 

GO 3330 FOR W=C0 TO SI IP=W*C56+II IF P>235 
2 THEN POP I? 8C41 GOTO 3350 
MK 3340 ? 8C4;" ";SCRSS(P + 42, P + 48);" "J 

SCRSS (P + 49, P + 50)j ■■ ";SCRSS(P + 51, P + 55); 

■ mext n 

HY 3350 ? 8C4I? 8C41 NEXT I:? 8C4 
WX 3360 CLOSE 8C4IG0T0 3030 
MB 3370 5=ii2:Sl=ClI? 8C4;" ";:IF CLM= 

80 THEN ? OC4;" I 

5=224:Si=C3 

ZL 3380 ? 8C4; "LIST OF ALL GAMES WITH TOP 
SCORE' 1 :? 8C4I? 8C4 

FA 3390 FOR I = C1 TO NXGM*C56 STEP S:FOR W 
= C0 TO SI IP=W*C56+II IF P> 2352 THEN POP 
I? 8C4IG0T0 3430 

UU 3400 GAME$=5CR5$(P,P+13)IFOR Z=14 TO C 

1 STEP -Cl I IF GAMES(Z,Z)<>" " THEN POP 
IGOTO 3420 

YJ 3410 NEXT Zl? 8C4IP0P IGOTO 3430 
FA 3420 TEMP$=" ":0=9-INT( 

Z/C2):TEMP$(0,G+Z-C1)=GAME$I? ttC4j" 
"JTEMPS;INERT Wl? 8C4 
DJ 3430 FOR W=C0 TO SI IP=W*C56+II IF P>235 

2 THEN POP IGOTO 3450 

MF 3440 ? 8C4J" SCRSS(P+14,P+C20);" " 

;SCR5$(P + 21, P + 22);" ";SCRSS(P + 23,P + 27) 

• • next w 

IA 3450 ? OC4I? OC4INERT II? ttC4 
WZ 3460 CLOSE 8C4IG0T0 3030 
MT 3470 6 = 112 ISl-ClI? OC4j" ";:IF C 

LM=80 THEN ? 8C4J" 

IS=224I51=C3 

PO 3480 ? ttC4;"LIST OF GAME NAMES ON FILE 
"I? OC4l? «C4 

DX 3490 FOR I=C1 TO NXGM*C56 STEP SlFOR W 
= C0 TO SI IP = W*C56 + II IF P>2352 THEN POP 
IGOTO 3510 

DM 3500 ? ttC4;" ";SCRS$(P,P+13);INEXT W 
I? »C4l? t)C4 I NEXT II? ttC4 I CLOSE OC4IGO 
TO 3030 

SD 3510 ? OC4I? TIC4 I NEXT II? »C4lCL0SE OC 
4 I GOTO 3030 

TU 3520 A=PEEK(195)I? "IU++ERROR t+ ";Al? 
I? I CLOSE «C4 

CT 3530 ? "The Printer is not responding. 
Be sureit is on and in an on-line sta 
te." 

RH 3540 IF A<>130 AND A<>138 AND A<>139 T 
HEN ? :? "This error Might not be the 
printers fault. Check prograM." 

EC 3550 ? i? "Error occured in line "jPEE 
K(186)+PEEK(187)*C256 
WF 3560 ? i? Main Menu iJ Print M 

enu" 

01 3570 ? :? "Press letter of choice >1"; 

I POKE C764,C255 

TJ 3580 IF PEEK(C764)=C10 THEN POKE C764, 
C255IG0T0 3030 

RV 3590 IF PEEK(C764)=37 THEN POKE C764,C 
255 I GOTO 430 
UG 3600 GOTO 3580 

WO 3610 A=PEEK(195)I? "IU+ERROR t+";A;" I 
N LINE ";PEEK(186)+PEEK(187)*C256l? I? 
I POKE C752,C0:POKE 16,192 
CM 3620 POKE 53774,247HF A<>130 AND A<>1 
38 AND A <>139 AND A<>140 AND A<>142 AN 
D A <>143 AND A<>144 THEN 3640 
UN 3630 ? "The probleM seens to be with t 
he disk drive. It is not responding pr 
operly. Check drive.":END 
WX 3640 IF A=169 THEN ? "The directory on 
the disk is full. No rooM for the dat 


a file.":END 

XA 3650 IF A0162 THEN 3680 
HP 3660 ? "There is not enough rooM on th 
e disk for the data file. You need at 
least 19 free sectors in Single "; 

GY 3670 ? "or 10 free sectors in Double 
Density.":END 

JN 3680 IF A=167 THEN ? "The data file is 
locked. I aM unable to update the inf 
orMation.":END 

SO 3690 ? "Please Check Manual for explai 
nation of error.":END 
PD 3700 DIM U5C0RE$(7),ULEUEL$(2),UNAME$( 
5),D$(i) .SCRS$ (2352),SCORES (7) .GAMES(1 

4) , LEVELS(2),NAMES (5) .AS(14),NS(6) 

D5 3710 DIM FILES(10),RVS(22),TNAME$ (5) ,T 
EMP$(16),A(4),SSC0RE$(7),TSCORES(7),SL 
EVELS(2) ,TLEVEL$(2),SNAME$(5) 

MM 3720 DIM SP$(105),LF$(61),MKS$(192) 

OY 3800 RV=ADR(RV$):SP=ADR(SP$):LF=ADR(LF 

5) IMKS=ADR(MKSS) 

IB 3810 C0=0lCl=l:C2=2:C3=3lC4=4:C5=5:C6= 
6 IC7 = 7IC8 = 8IC9 = 9IC10 = l0:C255 = 255IC256 = 
256:C42=42:C694=694:C702=702 
OV 3820 C16=16:C20=20:C764=764:C56=56:C65 
=65:C82=82:C89=89:C78=78lC64=64:C40=40 
:C752=752lC128=128 
BA 3830 RETURN 
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by C.F. Fogarty, III 

Create-a-base is a versatile file and retrieve program that 
allows you to easily define your own personal databases. 
It has facilities for creating databases, adding new records 
to a database, updating records already on your database, 
searching on multiple key fields, and simple reporting. 

Before we go into explanations of how to use Create-a- 
base, here’s a quick overview of some common database 
buzzwords. 

A byte or character, is the smallest piece of data that 
Create-a-base deals with. It’s a single character, like the 
letter A. 

A field is a collection of bytes and usually contains data 
pertaining to a single subject or item, like a name or ad¬ 
dress. 

A record is a logical collection of fields. For instance, 
a record in a database called Phone Book, might contain 
the following fields: name, street, city, state, zip code and 
phone number. 

A file (in this case, the database) is a collection of 
records. 

A database is merely a collection of related data, usually 
in multiple files. Large mainframe databases can share 
data between files, avoiding the need to enter all the fields 
for each record or entity. However, this type of data shar¬ 
ing is beyond the scope of Create-a-base. Remember, most 
of us (I have an Atari 800) have only 48K of RAM built 
into our computers. It’s this fixed amount of memory that’s 
the main limitation when working with a database. 


Limitations. 

The input area for each record is limited to a single 
graphics 0 screen. You can enter up to sixteen fields per 
record, and each field can be up to 31 bytes long. This 
gives you a maximum record size of 496 bytes. 

31 bytes X 16 fields _ 496 bytes 

field record record 

The size of each database is limited only by the capaci¬ 
ty of your disk drive and a single disk. A 1050 drive using 
DOS 2.5 will hold a database one and one-half times the 
size that an 850 drive will hold. It’s also important to note 
that, the smaller you define your records, the more records 
you can fit on a disk. 

Typing Create-a-base. 

The instructions below should be followed exactly to cre¬ 
ate your copy of Create-a-base. 

Type in Listing 1, using the BASIC Editor II (in issue 
47 of ANALOG Computing) to verify your work. Be sure 
to save a backup copy. 

Place a disk containing DOS in drive 1, and run the pro¬ 
gram created from Listing 1. Two files, ML1.LST and ML2. 
LST, will be written to your disk. Leave this disk in drive 

1 until all the steps below have been completed. 

After clearing your computer’s memory, type in Listing 

2 using the BASIC Editor II to verify your work. Be sure 
to save a backup copy. Run the program created from List¬ 
ing 2. Two files, AUTORUN.SYS and CHSET.PMG, will 
be written to your disk. 

After clearing your computer’s memory, type in Listing 
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3 using the BASIC Editor II to verify your work. Save a 
copy to disk. 

Load the program created from Listing 3 into memory 
and merge the file ML1.LST by typing ENTER “D:MLl. 
LST” and pressing RETURN. Save the resultant program 
to disk under the filename CREATEAB.ASE. 

After clearing your computer’s memory, type in Listing 

4 using BASIC Editor II to verify. Save a copy to disk. 

Load the program created from Listing 4 into memory 

and merge the file ML2.LST by typing ENTER “D.ML2. 
LST” and pressing RETURN. Save the resultant program 
to disk under the filename SORT. 

Getting started. 

Once you’ve typed in all the listings (no simple task) 
and created a master disk, boot your system with the 
Create-a-base master disk in drive 1. The main program 
loads automatically and prompts you to insert your data¬ 
base disk. Since this is your first time using Create-a-base, 
remove the master disk and insert a blank disk (no need 
to format it first). Once you’ve done this, press START, 
and Create-a-base will inform you that this isn’t a valid 
database disk. Press Y to format it. 

Now you can define your first database. Here’s an exam¬ 
ple everyone can use. At the prompt for Database Name, 
type Phone Book and press RETURN. Note: remember to 
press RETURN after all entries, or Create-a-base will ig¬ 
nore that input. Next, it will ask you for a LABEL; enter 
NAME. Now Create-a-base will ask you to define the size 
of the field for NAME, enter 25. This gives you an input 
area of 25 bytes for NAME. When you press RETURN 
Create-a-base does some processing on your input and 
prints the label NAME to the screen, followed by twenty- 
five underline characters. Meanwhile, you’re prompted in 
the status window. Press OPTION to define the next field, 
or press START when the whole record is defined. This 
time, press OPTION and use the following list to complete¬ 
ly define your Phone Book record: 


LABEL 

FIELD SIZE 

CONSOLE KEY 

STREET 

25 

OPTION 

CITY 

25 

OPTION 

STATE 

2 

OPTION 

ZIP CODE 

5 

OPTION 

PHONE# 

16 

START 


Once you’ve pressed START, Create-a-base does some 
processing and writes to the disk. When it’s done, you’ll 
have a database disk called Phone Book and Create-a-base 
will go into the “add records” mode. 

The next time you boot the Create-a-base master disk, 
insert this database disk at the prompt, and Create-a-base 
will go directly to the add records mode. 

Using the edit screen. 

To add records to the database, simply type in the per¬ 
son’s name and press RETURN. The cursor automatically 
moves down to the street field and so on . . . When you’ve 
entered all the data for the first record, press START and 
you’ve written the first record to your Phone Book! 

Advanced editing. 

Pressing RETURN alone, without typing any text, moves 
the cursor down to the next field and leaves that field 


blank. However, if any text was on that line (as in update 
mode), it will be erased. Pressing SELECT allows you to 
move the cursor to the next field without erasing any text. 

The OPTION key changes modes. There are five modes 
—add, search, update, report and create. By pressing OP¬ 
TION five times, you can cycle through each mode. In all 
modes except create, the screen looks exactly the same, 
except for the “mode” in the status window. In create 
mode, pressing OPTION will bring you back to the add 
mode, while pressing START takes you to where you de¬ 
fined your database. If you accidentally press START, 
when you meant to press OPTION in create mode, press 
ESCape to return to the edit screen. Normally, while edit¬ 
ing, you press START only when you’re done editing the 
record on the screen. It tells Create-a-base to process your 
input. 

Searching a database. 

To search the database for a certain record, press OP¬ 
TION until you’re in search mode. Then type in the in¬ 
formation you want to search for. Remember to press 
RETURN after each field you enter, and press START to 
begin the search. For example, if you wanted to search for 
Charles Fogarty, you could enter Charles Fogarty, Fogarty, 
or even F. 

Create-a-base will search the database until it finds a 
match or comes to the end-of-file. If it finds a match, the 
record prints to the screen and prompts you to Continue 
(Y/N). Pressing Y continues the search, and any other key 
brings you back to the edit screen (still in search mode). 
You can then search for different records. By the way, if 
you don’t type in any information for Create-a-base to 
search with before you press START, it defaults to all 
records, so everything’s a match. 

You can also search on multiple fields. So, if you want¬ 
ed to find everyone with a last name of Fogarty, who lives 
in Hartford, with a zip code of 06118, you could enter that 
information in the appropriate fields (name, city and zip 
code), and then press START. Only those records match¬ 
ing all three fields will show up on the screen. 

Reporting. 

Report mode works exactly like search mode, except all 
the output goes to the printer. 

Updating records. 

Update mode also works like search mode, until it finds 
a matching record. Once it finds a match, you can make 
any changes to that record displayed on the screen. Press 
START and the new, updated record is written to the data¬ 
base. The old record is written over by the new one. To 
delete a record completely, press CTRL-D. 

Creating new databases. 

Create mode was used to create your Phone Book data¬ 
base. You define labels and fields to create new and differ¬ 
ent databases. Remember, you can only put one database 
on a disk. If you try to create a new database on the same 
disk as Phone Book, it will erase the old Phone Book data¬ 
base and start a new one. You may, however, create as 
many different databases as you want, as long as they’re 
on separate disks. 
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SCHEMAS 


Other functions. 


SECTOR #1 


Pressing CTRL-P with a printer attached will print out 
the data currently displayed on the screen. This is some¬ 
times called a “screen dump.” 

Pressing CTRL-S (for Sort) will prompt you to press OP¬ 
TION to resume editing, or press START to sort the data¬ 
base. Remember to insert the Create-a-base master disk 
before pressing START, because the sort program is sepa¬ 
rate from the editor. 

Once the sort program’s running, it will read the whole 
database, sort it, and write it out to a new disk. So, after 
the sort, you’ll have two copies of that particular database, 
tlie original and the sorted version. This gives you a back¬ 
up copy, in case of any problems during the sort (like a 
power outage). The sort also gets rid of any “deleted” 
records and recovers lost disk space. These “deleted” 
records are still taking up space on the disk, even though 
they don’t show up when you search. 

A small database (one that can be sorted completely in 
RAM), takes a minute or two. The disk I/O takes consider¬ 
ably longer than the sort itself. Sometimes a large data¬ 
base won’t fit into RAM all at once (only 48K), so I tried 
to use the available memory as efficiently as possible. 

After reading and writing the database in blocks (ap¬ 
proximately 25K on my system), Create-a-base reads the 
database a second time. This time it notes the position 
of each record on the disk and keeps only the sort field 
and pointers. Then it sorts the pointers and reorganizes 
the file on the disk. This pointer sort allows you to sort 
files much larger than your main memory could possibly 
hold. The sort program will also scale down the length 
of the sort field, to accommodate a very large database. 
What this means is, if the number of records multipled 
by the sort field length is greater than the number of 
records that will fit in RAM, the sort will systematically 
make the sort field 1 byte smaller, until all the records fit 
into RAM. A worst case would be that the sort field was 
only 1 byte long. The records would still be sorted in al¬ 
phabetical order, only with less precision. 

The following is a list of possible databases: 


Phone Book 


Bowler Stats 


Sports Stats 


NAME 

25 

TEAM 

25 

TEAM 

25 

STREET 

25 

NAME 

25 

NAME 

25 

CITY 

25 

DATE 

8 

NUMBER 

3 

STATE 

2 

SCORE#1 

3 

etc. . . 


ZIP CODE 

5 

SCORE#2 

3 



PHONE# 

16 

SCORE#3 

3 



Articles 


Disk Catalog 


Home Inventory 


MAGAZINE 

25 

DISKNAME 

25 

LOCATION 

25 

TITLE 

31 

FILENAME 

12 

SERIAL# 

25 

AUTHOR 

25 

TYPE 

10 

DATE 

8 

MONTH 

9 

AUTHOR 

25 

DESCRIPT 

31 

YEAR 

4 

COMMENTS 

31 

VALUE 

7 

PAGE# 

4 





DESCRIPT 

31 






Subroutines. 

Create-a-base has a number of relocatable machine lan¬ 
guage routines which can be used in other BASIC pro¬ 
grams. 

MATCHS checks if two BASIC string variables are equal. 
Call it with: X = USR(ADR(MATCH$),ADR(the first vari¬ 
able), ADR (second variable],LENGTH(to compare). It com- 


(1-51) boot program. 

(52-64) to check for valid 
cb disk. 

(52-91) display 

for accidental 
boot. 

(92-106) database name 
15 characters 

(107-108) number of 
fields in 
use. 

MAX. 16 

(109-140) length of corresponding 
field. 

MAX. 31 


SECTOR #2 



1 

2 

3 

4 

5 

6 

7 

8 

1 

A 

A 

B 

B 

C 

C 

D 

D 

9 

E 

E 

F 

F 

4 

9 

6 


17 

L 

A 

B 

E 

L 

# 

0 

1 

25 

L 

A 

B 

E 

L 

# 

0 

2 

33 

L 

A 

B 

E 

L 

# 

0 

3 

41 

L 

A 

B 

E 

L 

# 

0 

4 

49 

L 

A 

B 

E 

L 

# 

0 

5 

57 

L 

A 

B 

E 

L 

# 

0 

6 

65 

L 

A 

B 

E 

L 

# 

0 

7 

73 

L 

A 

B 

E 

L 

# 

0 

8 

81 

L 

A 

B 

E 

L 

# 

0 

9 

89 

L 

A 

B 

E 

L 

# 

1 

0 

97 

L 

A 

B 

E 

L 

# 

1 

1 

105 

L 

A 

B 

E 

L 

# 

1 

2 

113 

L 

A 

B 

E 

L 

# 

1 

3 

121 

L 

A 

B 

E 

L 

# 

1 

4 



1 

2 

3 

4 

5 

6 

7 

8 

1 

9 









17 




boot 




25 




program 



33 









41 









49 




C 

r 

e 

a 

I 

57 

e 

- 

a 

- 

b 

a 

s 

e 

65 


( 

c 

) 


1 

9 

8 

73 

5 


C 


F 


F 

0 

81 

9 

a 

r 

t 

y 


1 

1 

89 

1 



0 

i 

2 

3 

4 

97 

5 

6 

7 

8 

9 

A 

B 

C 

105 

D 

E 

1 

6 

0 

0 

1 

1 

113 

2 

2 

3 

3 

4 

4 

5 

5 

121 

6 

6 

7 

7 

8 

8 

9 

9 


(141-143) record size 

MAX, 496 bytes 

(145-272) label for each field 
8 bytes each. 
MAX. of 16 labels 


SECTOR #3 

1 2 3 4 5 6 7 8 

1 
9 
17 
25 
33 
41 
49 
57 
65 
73 
81 
89 
97 
105 
113 
121 


L A B E L # 1 

L A B E L # 1 


reserved 

for 

future 

expansions. 


ATARI 8-BIT EXTRA 


ANALOG COMPUTING 17 








Create-a-base 


continued 


pares from left to right and returns 0 if they’re equal, or 
1 if they don’t match. 

Note: it considers underline characters as wildcards (al¬ 
ways a match). 

MOVEMEMS moves memory. Call with: X=USR(ADR 
(MOVEMEM$),FROM,TO,number of bytes to move,ADR 
(CONVERTS)). ADR(CONVERTS) is optional—if used, it 
converts ATASCII to screen display code (what you see on 
the screen). 

PARSES checks for valid input. Call with: X=USR 
(ADR(PARSES),IN,TYPE).where: IN is an ATASCII value 
(like GET #1,IN); TYPE = ASC(‘A”) checks for alpha¬ 
numeric; or TYPE = A SC(“N”) checks for numeric. The 
values returned in X are: 0 = invalid input; 1 = backspace 
was pressed; 2 = RETURN was pressed; and 3 = valid 
input. 

SCAN KBS scans the keyboard and console keys. Call 
with: X=USR(ADR(SCANKB$)). It exits to BASIC when 
a key is pressed. The values returned in X are: 1 = a key 
was pressed; 2 = OPTION was pressed; 3 = SELECT was 
pressed; and 4 = START was pressed. 

SECTORIOS reads/writes disk sectors. Call with: X=USR 
(ADR(SECTORIO$),sector number,operation,ADR (buffer)), 
where sector number is any valid sector, and operation is 
ASC(“R”) for read or ASC(“W”) for write; the buffer must 
be at least 128 bytes long. 

SORTS is a bubble sort in machine language. It’s not the 
best sort in the world, but it will sort 25K in about one 
minute. It sorts on one key field, which can be a maxi¬ 
mum of 255 bytes long. The records can be any size. Call 
with: X=USR(ADR(SORT$),ADR(file),number of records 
to sort,record length,sort-field length,starting position of 
the sort-field within a record). It returns 0 for success, or 
nonzero when invalid parameters are passed to it. 

STRIPS strips trailing underline characters from a string 
variable. Call with: X=USR(ADR(STRIP$),ADR(string), 
LEN(string) -1)). The string must be at least 2 bytes long. 
It returns the position of the last nonunderline character 
in X. 

Well, that’s it. Go forth and Create-a-base. H 

C. F. Fogarty worked in OP operations at Aetna for six 
years and is now a software programmer trainee. He 
bought his Atari 800 in 1982, and his CompuServe I.D. is 
7420 6,3453. He’s married, has a son and enjoys trout fish¬ 
ing and trail riding. 


The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 


Listing 1. 

BASIC listing. 

ES 10 DIM M$(120),L$(120) 

FD 20 GRAPHICS 0:POKE 710,0:? "PLACE FORM 
ATTED DISK IN DRIVE":? "THEN PRESS RET 


URN":INPUT L$:OPEN tti,8.0,"D: ML1.LST" 
FQ 30 L$="780 C0NVERT$=":LS(LEN(L$)+1)=CH 
R$(34) :N-29:G05UB 210:GOSUB 220 
MQ 40 L$="790 DLI$ = ":L$(LEN(L$)+1)::CHR$(3 
4) : N = 24:GOSUB 210:G0SUB 220 
QT 50 L$="795 MATCH$=":L$CLENCL$)+1)-CHR$ 
(34):N=42:G0SUB 210:G0SUB 220 
GX 60 L$-"800 M0VEMEM$=":L$(LEN(L$)+1)=CH 
R$ (34) :N=99:GOSUB 210:GOSUB 220 
PL 70 L$="805 MOVEMEM$(10O)=":L$(LEN(L$)+ 
1)=CHR$(34):N=19:G0SUB 210:GO5UB 220 
FI 80 L$="820 PARSE$=":L$(LEN(L$)+i)=CHR$ 
(34):N=57:G0SUB 210:GOSUB 226 
TJ 90 L$="850 SCANKB$=":L$(LEN(L$)+1)=CHR 
$(34):N=35:G0SUB 210:G05UB 220 
EN 100 L$-"855 SECT0RI0$r":L$(LEN(L$)+l)= 
CHR$ (34) :N=31:G0SUB 210:G0SUB 220 
WL 110 L$="860 STRIP$-":L$(LEN(L$)+1)=CHR 
$(34):N=30:G0SUB 210:GOSUB 220 
OH 120 L$="1O50 SCHEMAS^":L$(LEN(L$)+1)-C 
HR$ (34) :N = 74:G0SUB 210:GOSUB 220 
MF 130 CLOSE tti : OPEN »1,8,0, "D : ML2 . LST" 

EU 140 L$="505 S0RT$=":L$(LEN(L$)+1)=CHR$ 
(34):N=74:G0SUB 210:G0SUB 220 
VM 150 L$="510 S0RT$(75)-":L$(LEN(L$)+1)- 
CHR$(34):N=75:G0SUB 210IGOSUB 220 
PI 160 L$="515 SORT$(150)-":L$(LEN(L$)+1) 
=CHR$(34):N=75:GOSUB 210:GOSUB 220 
QD 170 L$-"520 S0RT$(225)=":L$(LEN(L$)+1) 
= CHR$ (34) :N = 75:GOSUB 210:GOSUB 220 
LR 180 L$-“525 S0RT$(300) : L$ (LEN (L$)+1) 
-CHR$(34):N=29:G0SUB 210:G0SUB 220 
DH 190 L$="535 SEARCH$ = ":L$ (LEN (L$)+1)=CH 
R$(34):N=77:G0SUB 210:G0SUB 220 
Y5 2O0 RESTORE 44O:L$="5O0 SECT0RI0$=":L$ 
(LEN(L$)+1)-CHR$(34):N=31:G0SUB 210:G0 
SUB 220:END 

T8 210 FOR X = 1 TO N:READ A:M$(X)=CHR$(A) : 
NEXT XSRETURN 

VK 220 L$(LEN(L$)+1)=M$:L$(LEN(L$)+1)-CHR 
$(34):? »l;L$:M$="“:RETURN 
AO 230 REM CONVERTS X ttXXXX 

DC 240 DATA 24,201,32,144,12,201,96,144,1 
6,201,128,144,15,201,160,176,4,105,64, 

208.7.201.224.176.3.56.233.32.96 
FL 250 REM XMXXMX DLI$ XXXXXX 

VA 260 DATA 72,138,72,169,176,162,44,236, 
11,212,144,2,169,161,141,10,212,141,24 
,208,104,170,104,64 
KM 270 REM X XXXXX MATCH$ XXXXXX 
L5 280 DATA 104,104,133,204,104,133,203,1 
04,133,206,104,133,205,160,0,132,212,1 
32,213,162,1,104,104,240,14 
VB 290 DATA 133,207,177,203,209,205,208,6 
,200,196,207,208,245,202,134,212,96 
PJ 300 REM X XXXXX M0VEMEM$ XXXXXX 
CD 310 DATA 104,133,214,201,4,240,4,201,3 
,208,93,104,133,204,104,133,203,104,13 
3,206,104,133,205,104,133 
WX 320 DATA 208,104,133,207,165,214,201,4 
,208,13,169,76,133,214,104,133,216,104 
,133,215,24,144,4,169,96 
FD 330 DATA 133,214,160,0,166,207,240,24, 
132,207,177,203,32,214,0,145,205,230,2 
03,208,2,230,204,230,205 
RL 340 DATA 208,2,230,206,202,208,234,166 
,208,240,9,202,134,208,162,255,230,207 
,208,221,166,207,208,209,134 
VJ 350 DATA 212,134,213,96,170,240,5,104, 

104.202.208.251.134.213.232.134.212.96 
UI 360 REM x xxxxx PARSES xxxxxx 

XV 370 DATA 104,104,104,133,203,104,104,1 
33,204,162,0,134,212,134,213,232,169,1 
26,197,203,240,32,232,169,32 
MM 380 DATA 197,203,240,25,232,169,78,197 
,204,248,6,169,31,160,123,208,4,169,32 
,160,59,197,203,176,6 
PG 390 DATA 196,203,144,2,134,212,96 
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ZW 400 REM XXXXXX SCAHKBS XXXXXX 

K(t 410 DATA 104,160,0,132,213,162,1,173,2 

52.2.201.255.208.18.232.173.31.208.201 
,3,240,10,232,201,5 

SF 420 DATA 240,5,232,201,6,208,229,134,2 

12.96 

XL 430 REM XX X XX -X SECT0RI0S XXXXXX 
JM 440 DATA 104,104,141,11,3,104,141,10,3 
,104,104,141,2,3,104,141,5,3,104,141,4 
,3,169,1,141,1,3,32,83,228,96 
J5 450 REM XXXXXX STRIPS XXXXXX 
LP 460 DATA 104,104,133,204,104,133,203,1 
04,104,133,205,169,0,133,213,164,205,1 

77.203.201.95.208.3.136.208 
EK 470 DATA 247,200,132,212,96 
ZM 480 REM XXXXXX SCHEMAS XXXXXX 

IT 490 DATA 0,3,0,7,6,7,162,0,160,120,189 
,50,7,201,32,144,12,201,96,144,16,201, 
128,144,15 

ID 500 DATA 201,160,176,4,105,64,208,7,20 

1.224.176.3.56.233.32.145.88.200.232.2 
24,56,208,218,24,0 

OT 510 DATA 32,195,242,229,225,244,229,17 
3,225,173,226,225,243,229,32,40,99,41, 
32,49,57,56,53,32 
SL 520 REM XXXXXX SORTS XXXXXX 
HR 530 DATA 216,162,1,134,231,202,134,232 
,134,209,104,201,5,240,12,170,240,5,10 
4,104,202,208,251,232,134 
YF 540 DATA 212,96,104,133,204,133,208,10 
4,133,203,133,207,104,133,225,104,133, 
224,104,133,227,104,133,226,104 
OZ 550 DATA 104,133,230,104,133,229,104,5 
6,233,1,133,228,165,229,233,0,133,229, 

165.225.208.6.165.224.201 

HR 560 DATA 2,144,201,165,227,208,6,165,2 
26,201,1,144,191,165,230,201,1,144,185 
,24,165,228,101,230,133 
DT 570 DATA 214,165,229,105,0,133,215,165 
,227,197,215,144,166,165,226,197,214,1 

44.160.165.207.133.205.165.208 

OD 580 DATA 133,206,24,165,205,101,226,13 

3.207.165.206.101.227.133.208.24.165.2 
05,101,228,133,214,165,206,101 

CU 590 DATA 229,133,215,24,165,207,101,22 
8,133,216,165,208,101,229,133,217,160, 
0,177,216,209,214,144,75,208 
LI 600 DATA 5,200,196,238,208,243,24,165, 
231,105,1,133,231,165,232,105,0,133,23 
2,165,231,197,224,208,175 
JJ 610 DATA 165,232,197,225,208,169,166,2 
09,240,36,134,231,202,134,232,134,269, 

165.203.133.207.165.204.133.208 

HG 620 DATA 56,165,224,233,1,133,224,165, 
225,233,0,133,225,208,135,165,224,201, 
1,208,129,96,208,188,165 
UK 630 DATA 226,133,212,165,227,133,213,1 
65,205,133,214,165,206,133,215,165,207 
,133,216,165,208,133,217,160,0 
PU 640 DATA 166,212,240,27,132,212,177,21 

4.72.177.216.145.214.104.145.216.230.2 

14.208.2.230.215.230.216.208 

DD 650 DATA 2,230,217,202,208,231,166,213 
,240,9,202,134,213,162,255,230,212,208 
,218,166,212,208,206,232,134 
DB 660 DATA 209,208,175 
DK 670 REM XX X XX X SEARCHS XXXXXX 
SR 680 DATA 104,104,133,204,104,133,203,1 
04,133,206,104,133,205,164,104,133,207 
,169,0,133,212,133,213,162,1 
SM 690 DATA 24,165,203,101,207,133,203,16 
5,204,105,0,133,204,24,165,212,105,1,1 
33,212,165,213,105,0,133 
JL 70O DATA 213,224,1,208,8,202,24,165,20 
7,105,3,133,207,160,0,177,203,209,205, 

208.210.200.192.3.208.245.96 


Listing 2. 
BASIC listing. 


LP 

UF 

XY 

HA 

GH 

GH 

SG 

DP 

TB 

GH 

KH 

BE 

OD 

ZN 

IA 

LP 

XG 

MA 

ET 

YL 

FE 

AD 

GF 

CG 

GD 

JK 

UK 

ZZ 

DJ 

SH 

WH 

YU 

FT 

MR 

KL 

10 

TO 

VL 

HH 

UL 


PD 

AH 

PC 

HR 

LO 

EB 

PI 

XW 

FO 

CC 

IB 

ZF 

DW 

UP 

PK 

5E 

JU 

YL 

GM 

EC 

HE 

MP 

PD 

YJ 

YH 

TO 

LP 

XM 
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20 ? "CREATE-A-BASE MASTER DISK MAKER" 
30 ? :? "USE A FORMATTED DISKETTE WITH 
DOS.SYS AHD DUP.SYS" 

40 ? :? "PRESS ISTARTI TO COHTIHUE..." 
58 IF PEEKC53279J <>6 THEH 50 
60 ? :? "WRITIHG AUTORUH.SYS.. 

70 OPEH ttl,8,0,"D: AUTORUH.SYS"!RESTORE 
100 

80 READ A:IF A=-999 THEH 200 
90 PUT ttl,A:GOTO 80 

100 DATA 255,255,160,6,162,6 

101 DATA 76,175,6,175,6,251 

102 DATA 6,160,11,185,0,228 

103 DATA 153,163,6,136,16,247 

104 DATA 169,222,141,167,6,169 

105 DATA 6,141,168,6,172,170 

106 DATA 6,174,169,6,232,208 

107 DATA 1,200,142,246,6,140 

108 DATA 247,6,169,163,141,33 

109 DATA 3,169,6,141,34,3 

110 DATA 96,172,0,6,208,10 

111 DATA 169,0,141,33,3,169 

112 DATA 228,141,34,3,185,1 

113 DATA 6,206,0,6,72,32 

114 DATA 251,6,104,160,1,96 

115 DATA 253,6,255,6,108,250 

116 DATA 191,68,2,68,2,0 

117 DATA 9,0,9,0,1,226 

118 DATA 2,227,2,160,6,224 

119 DATA 2,225,2,253,6,0 

120 DATA 6,19,6,18,155,69 

121 DATA 83,65,46,66,65,69 

122 DATA 84,65,69,82,67,58 

123 DATA 68,34,78,85,82 

124 DATA -999 

200 CLOSE tti:OPEH ttl, 8, O, "D : CH5ET . PMG" 
:REST ORE 1080 

210 ? :? "WRITIHG CHSET.PMG.. 

220 READ A:IF A=~999 THEH 240 
230 PUT ttl, A : GOTO 220 

240 FOR X-i TO 510:PUT ttl,0:HEXT X: PUT 
ttl,155 

250 ? :? "DOH’T FORGET TO PUT FILES:": 
? "CREATEAB.A5E & SORT.":? "OH THIS DI 
SK." 

1000 DATA 0,0,0,0,0,0 

1001 DATA 0,0,0,24,24,24 

1002 DATA 24,0,24,0,0,102 

1003 DATA 102,102,0,0,0,0 

1004 DATA 0,102,255,102,102,255 


1005 DATA 

1006 DATA 

1007 DATA 

1008 DATA 

1009 DATA 

1010 DATA 

1011 DATA 

1012 DATA 

1013 DATA 

1014 DATA 

1015 DATA 

1016 DATA 

1017 DATA 

1018 DATA 

1019 DATA 

1020 DATA 

1021 DATA 

1022 DATA 

1023 DATA 

1024 DATA 

1025 DATA 

1026 DATA 

1027 DATA 


102,0,24,62,96,60 
6,124,24,0,0,102 
108,24,48,102,78,0 
28,54,28,56,111,102 
59,0,0,24,24,24 
0,0,0,0,0,14 
28,24,24,28,14,0 
0,112,56,24,24,56 
112,0,0,102,68,255 
60,102,0,0,0,24 
24,126,24,24,0,0 
0,0,0,0,0,24 
24,48,0,0,0,126 
0 , 0 , 0 , 0 , 0,0 
0,0,0,24,24,0 
0,6,12,24,48,96 
64,0,0,60,102,110 
118,102,60,0,0,24 
56,24,24,24,126,0 
0,60,102,12,24,48 
126,8,0,126,12,24 
12,102,60,0,0,12 
28,60,108,126,12,0 
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^ Create-a-base 


continued 


CK 1028 DATA 
CY 1029 DATA 
00 1030 DATA 
HD 1031 DATA 
PY 1032 DATA 
TD 1033 DATA 
FF 1034 DATA 
VU 1035 DATA 
AK 1036 DATA 
IZ 1037 DATA 
CS 1038 DATA 
RS 1039 DATA 
KG 1040 DATA 
5E 1041 DATA 
XX 1042 DATA 
YF 1043 DATA 
W5 1044 DATA 
RX 1045 DATA 
MY 1046 DATA 
BQ 1047 DATA 
HI 1048 DATA 
DC 1049 DATA 
DH 1050 DATA 
UC 1051 DATA 
DA 1052 DATA 
RM 1053 DATA 
011 1054 DATA 
WV 1055 DATA 
NB 1056 DATA 
QG 1057 DATA 
XQ 1058 DATA 
TF 1059 DATA 
AU 1060 DATA 
CF 1061 DATA 
LO 1062 DATA 
OH 1063 DATA 
KA 1064 DATA 
QY 1065 DATA 
TY 1066 DATA 
C£ 1067 DATA 
OH 1068 DATA 
XR 1069 DATA 
OS 107O DATA 
ZB 1071 DATA 
TG 1072 DATA 
PA 1073 DATA 
AZ 1074 DATA 
OL 1075 DATA 
UA 1076 DATA 
VIA 1077 DATA 
ZK 1078 DATA 
UD 1079 DATA 
HY 1080 DATA 
WG 1081 DATA 
OK 1082 DATA 
H5 1083 DATA 
OR 1084 DATA 
VU 1085 DATA 
VW 1086 DATA 
NO 1087 DATA 
MA 1088 DATA 
K5 1089 DATA 
XK 1090 DATA 
MU 1091 DATA 
FA 1092 DATA 
XJ 1093 DATA 
WE 1094 DATA 
HI 1095 DATA 
VQ 1096 DATA 
EL 1097 DATA 
TA 1098 DATA 
XS 1099 DATA 
OH 1100 DATA 
AA 1101 DATA 
IG 1102 DATA 
BH 1103 DATA 
PA 1104 DATA 
YH 1105 DATA 


0,126,96,124,6,102 

60,0,0,60,96,124 

102,102,60,0,0,126 

6,12,24,48,48,0 

0,60,102,60,102,102 

60,0,0,60,102,62 

6,12,56,0,0,0 

24,24,0,24,24,0 

0,0,24,24,0,24 

24.48.6.12.24.48 
24,12,6,0,0,0 
126,0,8,126,0,0 

96.48.24.12.24.48 
96,0,0,60,102,12 
24,0,24,8,0,60 
102,110,110,96,62,0 
0,24,60,102,102,126 
102,0,0,124,102,124 
102,102,124,0,0,60 
102,96,96,102,60,0 
0,120,108,102,102,108 
120,0,0,126,96,124 
96,96,126,0,0,126 
96,124,96,96,96,8 
0,62,96,96,110,102 
62,0,0,102,102,126 
102,102,102,0,0,126 
24,24,24,24,126,0 
0 , 6 , 6 , 6 , 6,102 
60,0,0,102,108,120 
120,108,102,8,0,96 
96,96,96,96,126,0 
0,99,119,127,107,99 
99,6,0,102,118,126 
126,110,102,0,0,60 
102 , 102 , 102 , 102 , 68,0 
0,124,102,102,124,96 
96,0,0,60,102,102 
102,108,54,0,0,124 
102,102,124,108,102,0 
0,60,96,60,6,6 
60,0,0,126,24,24 
24,24,24,0,0,102 
102,102,102,102,126,0 
0,102,102,102,102,60 
24,0,0,99,99,107 
127,119,99,0,0,102 
102,60,60,102,162,0 
0,102,102,60,24,24 
24,0,0,126,12,24 
48,96,126,0,0,30 
24,24,24,24,30,0 
0,64,96,48,24,12 
6,0,0,120,24,24 
24,24,120,0,0,8 
28,54,99,0,0,0 

0, O,0,O, 0, O 

255,0,127,192,135,132 

132,135,192,127,255,0 

119,37,38,37,8,255 

254,3,65,65,65,113 

3,254,24,24,24,248 

248,0,0,0,24,24 

24,248,248,24,24,24 

0,0,0,248,248,24 

24,24,127,192,135,133 

133,135,192,127,255,0 

119,82,114,66,0,255 

255,0,93,85,85,93 

0,255,254,3,33,161 

97,33,3,254,127,192 

135,132,129,135,192,127 

255,8,116,100,68,119 

0,255,255,0,119,100 

68,119,0,255,254,3 

113,33,33,33,3,254 

127,192,135,134,132,135 

192,127,255,0,119,68 


BG 1106 
PS 1107 
YP 1108 
YA 1109 
WY 1110 
LR 1111 
BG 1112 
GE 1113 
EB 1114 
OH 1115 
YM 1116 
RV 1117 
PM 1118 
BE 1119 
RH 1120 
EH 1121 
00 1122 
VH 1123 
ZL 1124 
CJ 1125 
AP 1126 
PE 1127 
CL 1128 
HP 1129 
AD 1130 
YX 1131 
UZ 1132 
MM 1133 
JS 1134 
BU 1135 
AB 1136 
SZ 1137 
ER 1138 
VX 1139 
BV 1140 
PL 1141 
UP 1142 
BW 1143 
BO 1144 
RT 1145 
YK 1146 
VA 1147 
MD 1148 
OT 1149 
BP 1150 
YK 1151 
JH 1152 
HA 1153 
WK 1154 
UX 1155 
LU 1156 
ME 1157 
PD 1158 
IW 1159 
TI 1160 
GO 1161 
JD 1162 
BH 1163 
CL 1164 
YP 1165 
YE 1166 
PP 1167 
GP 1168 
FA 1169 
YH 1170 
OC 1171 


DATA 20,119,0,255,255,6 

DATA 39,85,119,84,8,255 

DATA 8,0,0,31,31,24 

DATA 24,24,0,0,0,255 

DATA 255,0,0,0,254,3 

DATA 113,97,65,113,3,254 

DATA 0,6,60,126,126,126 

DATA 60,0,0,0,0,0 

DATA 255,255,255,255,127,192 

DATA 131,130,128,131,192,127 

DATA 255,0,185,18,147,146 

DATA 0,255,255,0,59,169 

DATA 177,169,0,255,254,3 

DATA 129,1,1,1,3,254 

DATA 24,24,24,31,31,0 

DATA 0,0,120,96,120,96 

DATA 126,24,30,0,0,24 

DATA 60,126,24,24,24,0 

DATA 0,24,24,24,126,60 

DATA 24,0,0,24,48,126 

DATA 48,24,0,0,0,24 

DATA 12,126,12,24,0,0 

DATA 0,24,60,126,126,60 

DATA 24,0,0,0,60,6 

DATA 62,102,62,0,0,96 

DATA 96,124,102,102,124,0 

DATA 0,0,60,96,96,96 

DATA 60,0,0,6,6,62 

DATA 102,102,62,0,0,0 

DATA 60,102,126,96,60,0 

DATA 0,14,24,62,24,24 

DATA 24,0,0,0,62,102 

DATA 102,62,6,124,0,96 

DATA 96,124,102,102,102,0 

DATA 0,24,0,56,24,24 

DATA 60,0,0,6,0,6 

DATA 6,6,6,60,0,96 

DATA 96,108,120,108,192,0 

DATA 0,56,24,24,24,24 

DATA 60,0,0,0,102,127 

DATA 127,107,99,0,0,0 

DATA 124,102,102,102,102,0 

DATA 0,0,60,102,102,102 

DATA 60,0,0,0,124,102 

DATA 102,124,96,96,0,0 

DATA 62,102,102,62,6,6 

DATA 0,0,124,102,96,96 

DATA 96,0,0,0,62,96 

DATA 60,6,124,0,0,24 

DATA 126,24,24,24,14,0 

DATA 0,0,102,102,102,102 

DATA 62,0,0,0,102,102 

DATA 102,60,24,0,0,0 

DATA 99,107,127,62,54,0 

DATA 0,0,102,60,24,60 

DATA 102,0,0,0,102,102 

DATA 102,62,12,120,0,0 

DATA 126,12,24,48,126,0 

DATA 0,24,68,126,126,24 

DATA 60,0,24,24,24,24 

DATA 24,24,24,24,0,126 

DATA 120,124,110,102,6,0 

DATA 8,24,56,120,56,24 

DATA 8,0,16,24,28,30 

DATA 28,24,16,0,0,0 

DATA -999 




Listing 3. 
BASIC listing. 


GO 

1 REM 

Create-a-base 

GE 

2 REM 

Cc) 1985 c.F.Fogarty III 

LP 

3 REM 

version 3.1 Nov. 82, 1985 

HJ 

4 REM 
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ATARI 8-BIT EXTRA 


DI5K-I/0 


CU 10 POKE 1664,104:POKE 1665,64:P0KE 566 
,128:POKE 567,6 
RO 100 GOTO 745 
PC 105 REM 

RP 110 TRAP ERRORHANDLER 

PD 115 K BIP $ = 1 ' : K BIP S (RECSIZE) =' ■_' ‘ : K BIP S 

C1+ (RECSIZE)1))=KBIP$:DISKIP$=KBIPS:FI 
E L D = N U MFIE L D 5 

KZ 120 X=USR(MOVEMEM,ADR(KSCRNS) , SCREEN, 9 
60,CONVERT) 

10 125 G05UB SELECTlGOSUB 200 

VX 130 KBIP$(FX(FIELD-i)+l,FX(FIELD))=TMP 
2 $ 

PF 135 GOTO 125 
XV 140 REM 

JT 145 IF START=640 THEN POINT 82,SECT,CH 
ARlGOTO 155 

HG 150 IF 10-12 THEN NOTE 02,SECT,CHAR 
OC 155 ICBLH-INT (RECSIZE/256) :ICBLL=RECSI 
ZE-ICBLH*256 

TU 160 POKE 866,ICC0M:P0KE 872,ICBLL:POKE 
873,ICBLH:P0KE 868,ICBAL:POKE 869,ICB 
AH 

TO 165 X = USR (CIO,32):IF PEEK(867)=136 THE 
N 180 

FU 170 IF PEEK (867)> 3 THEN POP :GOTO ERRO 
RHANDLER 
AA 175 RETURN 
AR 180 SOUND 0,50,10,10 

FD 185 X=USR(MOVEMEM,ADR(PROMPTS(161)),SC 
REEN+720,40,CONVERT)ICLOSE B2lOK=0 
AA 190 FOR X = i TO 50:NEXT X:SOUND 8,0,0,0 
IFOR X = 1 TO 200:NEXT X 
KP 195 POP iGOTO PROC ESS 
CR 200 REM aagjHBJj 
EC 205 TEMP$ = , “* 

00 210 POKE KEYBD,255:X=USR(5CANKB) 

TH 215 ON X GOSUB KEYPRESS,OPTION,SELECT, 
START 

MG 220 GOTO 210 
RP 225 REM 

PK 230 GET 81,IN IIF IN = 27 THEN POP :POP : 

CLOSE 82:OK=0:GQTO PROCESS 
NG 235 X = USR (PARSE,IN,TYPE):0N X GOTO BAC 
KSPACE,EOL,LEGALIP 
EF 240 IF IH = 19 THEN GOSUB 1325 
OF 245 IF IN = 16 THEN GOSUB 650:REM SCREEN 
DUMP 

YE 250 IF NOT (IN=4 AND START=640) THEN 

280 

LR 255 KBIP$= , M ,, :KBIP$(RECSIZE)= , M":KBIPS 
(1+(RECSIZE)1))=KBIP$ 

LC 260 SOUND 8,100,10,10 

YM 265 X=USR(MOVEMEM,ADR(PROMPTS(201)),SC 
REEN+720,40,CONVERT) 

ZX 270 FOR X = 1 TO 50:NEXT XlSOUND 0,0,0,0 
IFOR X = i TO 200:NEXT X 
EU 275 GOTO START 

EZ 280 POKE 702,64:P OKE 694,0:RETURN 
MU 285 REM |.T;TH:«J;TH^ 

VX 290 TEMP=LEN(TEMPS):IF TEMP<2 THEN TEM 
PS = M, ‘:GOTO PRTT05CREEN 
TA 295 TEMPS=TEMPS(1,TEMP-1)IGOTO PRTT05C 
REEN 

AN 300 REM ®I3 

CN 305 POP JGOTOPRTTOSCREEN 
fiY 310 REM 

IP 315 TEMP=LEN(TEMPS):IF TEMP=MAX THEN R 
ETURN 

11 320 TEMPS(TEMP+i)=CHRS(IN) 
id 325 rem IggEBECEE3aiI3 

SM 330 TMP2$=TEMP> : IF LEN(TEMPS)<MAX THEN 
TMP2S(LEN(TMP2S)+1,MAX)^UNDERLINES 
SZ 335 X = USR(MOVEMEM, ADR(TMP2S),SCREEN + LO 
C,MAX,CONVERT) 

ZH 340 RETURN 
SZ 345 REM 

OX 350 X = U5R(MOVEMEM, ADR(OFFS),PMBA5E,256 


) 

FP 355 FIELD=FIELD+1:IF FIELD)NUMFIELDS T 
HEN FIELD=1 

BU 360 X=USR(MOVEMEM,PLAYER,PMBASE+40+FIE 
LD*8,8):P0KE 53277,3 
FM 365 LOC=49+FIELD*40:TEMPS= m ' 

NU 370 MAX=FL(FIELD) 

AC 375 RETURN 
DO 380 REM 

OJ 385 CLOSE 82:0K=0 

IC 390 OX = OX + l:IF 0X>4 THEN 0X = 0 

MB 395 X=U5R(M0VEMEM,ADR(0PTABLE$(0X*6+1) 

),ADR (K5CRNS (767)),6) :D5CRN$ = KSCRNS 
KY 40O X = USR(MOVEMEM,ADR(KSCRNS),SCREEN, 9 
60,CONVERT) 

UT 405 FIELD=NUMFIELDS:GOSUB SELECT 
PW 410 IF 0X=4 THEN X=USR(MOVEMEM,WINDOW, 
SCREEN+680,280,CONVERT):0K=1 
ZE 420 RETURN 
YI 425 REM 

KT 430 POP :POP :IF OK THEN 455 
VV 435 I0=4:IF OX=0 THEN 10=9 
YA 440 IF 0X=2 THEN 10=12 

BH 445 CLOSE 82:0PEN 82,10,O, M D1:DATABASE 

II 

CO 450 OK=i 

YP 455 ON OX GOTO 495,495,495,955 
SA 460 REM [H3 

CK 465 ICC0M=11:ICBAH=INT(ADR(KBIPS)7256) 

:ICBAL = ADR (KBIPS)-ICBAH*256:IF KBIPSO 
DI5KIPS THEN 480 

RM 470 SOUND O,200,10,10:X=USR(MOVEMEM,AD 
R(PROMPTS(241)),SCREEN+720,40,CONVERT) 
RO 475 FOR X=1 TO 50:NEXT XlSOUND O,0,O,O 
IGOTO 485 
TB 480 GOSUB 140 

EP 485 OK=0:CLOSE 82IG0T0 PROCESS 
KV 490 REM 

FV 495 ICC0M=7IICBAH=INT(ADR(DI5KIPS)/256 
)IICBAL=ADR(DISKIPS)-ICBAH*256 
SM 500 GOSUB 140 
ED 505 REM 

WW 510 IF DISKIPS d, 1) ="H " THEN 500 
MH 515 NG = 0I AMATCH=1 

WM 520 FOR I=0 TO NUMFIELDS-1ITEMP$=KBIP$ 
(FX (I)+1, FX (I+i) ) IIF TEMPS (1,1)= ,, _" TH 
EN 545 

JX 525 IF LEN(TEMPS)=1 THEN PTR=1:G0T0 53 
5 

TR 530 PTR = U5R(STRIP,ADR (TEMPS),FL(I + i)-i 
) I IF PEEK(764)=28 THEN POP IGOTO PROCE 
SS 

SR 535 FOR J = i TO FL (I + i)-PTR + iING = USR(MA 
TCH, ADR(DISKIPS(FX(I)+J)),ADR(TEMPS),P 
TR)IIF NG=0 THEN J=FL(I+l)+i 
RR 540 NEXT JlIF NG THEN I=NUMFIELDSIAMAT 
CH = 0 

GF 545 NEXT 11 IF NOT AMATCH THEN 500 
HK 550 REM 

JA 555 X=USR(MOVEMEM,SCREEN,ADR(T5CRNS),9 
60)IREM SAVE SCREEN 

OC 560 FOR I=0 TO NUMFIELDS-1IX=I»40IDSCR 
N$(90+X,89+X+FL(I+l))=DISKIP$(FX(I)+i, 
FX (I + i)) I NEXT I 

FV 565 X = USR(MOVEMEM,ADR(DSCRNS),SCREEN, 9 
60,CONVERT) 

TP 570 IF 0X=2 THEN 605IREM UPDATE-CONT 
WI 575 IF 0X=3 THEN GOSUB 650IG0T0 495IRE 
M REPORT-CONT 

DF 580 X=USR(MOVEMEM,ADR(PROMPTS),SCREEN+ 
720,40,CONVERT) I REM CONTY/N 
VU 585 POKE 702,64 I POKE 694,0:GET 81,IN 
XW 590 IF IN = ASC ("Y") THEN X = USR(MOVEMEM, 
ADR(TSCRNS),SCREEN,960)IGOTO 495 
VL 595 IF IN=16 THEN IN=0:GOSUB 650IG0T0 
585 

DM 600 0K = 8I CLOSE 82IG0T0 PROCESS 


[UPPftTE-CONT] 
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Create-a-base continued 


wz 

VH 

NH 

YP 

JA 


EG 


DU 


LB 

IT 

ON 

ML 

VN 

MO 


IN 

XI 

AH 

OH 

AD 

HP 

KJ 


YB 


LY 

YS 


WW 


j SCR 
Y/N 


, SCR 
CTRL 


PRINTER ERROR 


ERRORHANDLER 


610 X-USR(MOVEMEM,ADR(PROMPTS(41)) 
EEN+720,40,CONVERT!:REM CHANGE IT 
615 POKE 702,64:P0KE 694,0:GET 81,IN 
620 IF I NOASCC'Y "! THEN 580 
625 REM [N:M:[r1=»fl 

630 X = USR(MOOEMEM,ADR(PROMPTS(81)1 
EEN + 720,40,CONVERT) : REM CHANGE OR 
/D 

635 TIPS=KBIPS:KBIPS=DISKIPS:FIELD=NUM 
FIELDS:START=640:OPTION=340!GOTO PROCE 
SS + 2Q 

640 POP :POP :ICC0M=11:ICBAH=INT(ADR(K 
BIPSl /256) :ICBAL=ADR(KBIPS)-ICBAH*256: 
GOSUB 140:START-425:KBIP$=TIPS 
645 QPTI ON-385:GOTO 580 
650 REM 
655 TRAP 690 

660 CLOSE 87:0PEN 87,8,0, "P ! '■ 

665 FOR I — 0 TO NUMFIELDS-1:IF PEEK(KEY 
BD)=28 THEN POP :GOTO PROCESS 
670 IF IN=16 THEN ? 87;SCHEMAS(145+1*8 
,152+1*8) ;"> ,, jKBIPS(FX(I)+l,FX(I+ll) :G 
OTO 680 

675 ? 87;SCHEMAS(145 + 1*8,152 + 1*8) ; 
DISKIPS(FX(I)+1,FX (1 + 1)) 

680 NEXT I:? 87:CLOSE 87:TRAP ERRORHAN 
DLER 

685 RETURN 

690 REM _ 

695 X=USR(MOVEMEM,ADR(PROMPTS(121)),SC 
REEN+720,40,CONVERT) 

700 REM 
705 SW$= n T 

|| Error 8 occurred on li 
ne 8 I" 

710 SWS(8i)=" I 

|| Press | tH to Recover 
I" 

715 TEMP=PEEK(195):TEMPS=STRS(TEMP):SW 
$(50,49+LEN(TEMPS))=TEMPS 
720 TEMP-PEEK(186)+PEEK(187)*256:TEMPS 
rSTRS(TEMP):5WS(72,71+LEN(TEMPS))=TEMP 

725 X=U5R(MOVEMEM,ADR(SWS),SCREEN+760, 
160,CONVERT) 

AY 730 IF PEEK(53279)<>6 THEN 730 
LO 735 CLOSE 82:CL0SE 87:0K=0 
OA 740 GOTO PROCESS 
RH 745 REM H3EH35E0 

FV 750 DIM BLANKS (40) .CIO>(7),CONVERTS (29 
),DISKIP$(496),DLIS(24),DSCRNS(960) 

755 DIM FL(16),FX(16) 

760 DIM KBIPS(496),KSCRNS(960),MATCHS( 
42),MOVEMEMS(118),OFFS(256),0PTABLE$(3 
0) ,PARSES(57) ,PLAYERS(8),PROMPTS(280) 
765 DIM SCANKBS(35),SCHEMAS(384),SECTO 
RIOS(31) ,STRIPS(30),SH$(160),TEMP$(40) 

,TIPS(4 96),TMP2S(4 0),TSCRNS (960) 

770 DIM UNDERLINES(40),WINDOWS(280) 

775 BLANK$=" " :BLANKS(40)= " ":BLANKS(2 
) -BLANKS : CI0S = "hhhujL V0" 

785 DISKIP$="_": DISKIPS (496) ="_" : DISKI 
P$(2)-DISKIPS 

810 OFFS="*" : OFFS (256) ="¥" i OFFS (2) = OFF 
$ 

815 OPTABLE$ = "| 

rPnrrrr3 M 

825PARSES (25,25)-CHRS(155) :PARSES(44, 
44)-CHRS (34) 

830 PLAYER$ = CHR$(255) :PLAYERS (8)=CHRS( 
255):PLAYERS(2)=PLAYERS 

835 PROMPTS-" |-** continue? (Y 

/N) **- 1 i-** Change it? 


PZ 

RX 


NG 


MC 

EM 

YX 

JO 

YZ 

FW 

PR 

AL 


searchupdateReport 


SH 


SU 


(Y/N) **-1 

840 PROMPTS(81)=" 
}■ |&D to delete , 

not online **- 

845 PROMPTS(161) = 


r-* 
r 


Make changes or ¥ 
-** Printer 


-File ***- 
LETED. **- 


-** DE 


UR 846 PROMPTS(241)=" r 
Record ***- 


-*** Ewpty 


VV 865 UNDERLINES="_":UNDERLINES(40)="_": 

UNDERLINES(2)=UNDERLINE$ 

PL 870 WINDOH$ = "i- 


n 


YF 875 MINDOMS (81) ='* 
Press /\i. to use 
- the CURRENT 
AN 880 WINDOWS(161)=" 
database. 

■ 


Press | 7-4 to | | 
create a NEW -or 


database. 

I i ■- 


RD 885 WINDOWS (241)=" >- 


RW 890 CIO=ADR(CIOS):CONVERT=ADR(CONVERTS 
):MATCH=ADR(MATCHS):MOVEMEM=ADR(MOVEME 
MS) :PARSE = ADR (PARSES) 

OG 895 PLAYER = ADR (PLAYERS) :SCANKB = ADR(5CA 
NKBS):5ECT0RI0=ADR(SECT0RI0$):strip=ad 
R (STRIPS) :WIND0W=ADR(WINDOWS) 

UK 900 KEYBD=764:KEYPRESS=230:BACKSPACE=2 
90:EOL=3O5:LEGALIP=315:PROCE55=105:PRT 
T0SCREEN=330 

UZ 905 OPTION=380:SELECT=35O:START=425:ER 
R0RHANDLER=705 

vk 910 rem 

NK 915 PM=PEEK(106)-8:CHSET=PM*256:POKE 1 
06,PM:GRAPHICS 0:P0KE 756,PM 
TP 920 CLOSE OHOPEN «i , 4,0 , "D : CHSET . PMG" 
EE 925 POKE 853,PM:P0KE 852,0:P0KE 857,6: 

POKE 856,0:P0KE 850,7:X=USR(CIO,16) 

XJ 930 CLOSE ttl:OPEN »1,4,0,"K:" 

EO 935 PMBASE=CHSET+1024:POKE 704,212:P0K 
E 559,62:POKE 623,1:P0KE 53256,3:P0KE 
54279,PM:POKE 53248,48 
BH 940 X = USR(MOVEMEM,ADR(DLlS),1536,24) :D 
L=PEEK(560)+256*PEEK(561):PQKE DL+6,13 
0 : POKE DL + 22,130:POKE 512,O 
WN 945 POKE 513,6:P0KE 54286,192:POKE 710 

, 176 _ 

XG 950 REM 

IU 955 GOSUB 1225:X=USR(MOVEMEM,ADR(KSCRN 
$),SCREEN.960,CONVERT):POKE 53277,0 
BM 960 SW$="1 Insert database diskette i 
nto | | Disk Drive til, 

I" 

WT 965 5WS(81)="| 

| | and press | t- 4 to c 
ontinue... I" 

WT 970 X=USR(MOVEMEM,ADR(5WS),SCREEN+760, 
160,CONVERT) 

OH 975 IF PEEK (53279)<>6 THEN 975 
LZ 980 TRAP 1025 

AO 985 SCHEMA$="¥":SCHEMAS(384)="¥":SCHEM 
AS (2)=SCHEMA$ 

SW 990 REM _ 

XZ 995 FOR 1 = 0 TO 2:X = USR (5ECT0RI0,1+1,82 
,ADR (SCHEMAS(1*128 + 1))) :NEXT I 
EE 1000 IF SCHEMAS(52,64)<>■ 

" THEN 1025 

UP 1005 IF NOT RESTART THEN RESTART = 1:GO 
SUB 1285:0X=5:G0SUB OPTION:GOTO PROCES 
S 

ZV 1010 swS="| This is a Create-a-base di 
skette. I" 

OR 1015 sw$(41)="| The database nawe is _ 
- |M 

SI 1020 X = USR(MOVEMEM,ADR(SCHEMAS(92)), AD 
R(SW$(64)),15):G0T0 1030 
NL 1025 SWS="| Not a Create-a-base dis 
kette. 


READ SCHEMA 


Create-a-base 


-*** End-of 


CV 1030 SWS(81)="| 
(Y/N) 


I I 


Forwat it? 
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EQ 

AV 

5M 

CG 

LA 

KO 

QT 

SH 

PK 

SP 

TP 

RT 

RJ 

YL 

HJ 

AP 

XO 

HQ 

YP 

XT 

US 

DF 

KH 

TD 

KM 

LU 

OR 

UA 

AB 

TB 

AX 

ZY 

LD 

KC 

CM 

UV 

HR 

CM 

QH 


1035 X=U5R(MOVEMEM,ADR(SH$),SCREEN+760 
,160,CONVERT):GET 81,IN:IF IN = 27 AND R 
ESTART THEN G05UB 1285:G0T0 PROCESS 
1040 IF INOASCC'Y") THEN 960 
1045 CLOSE 82 : XIO 254,02,0,0, "D1:*.*" 
1055 SCHEMA$(75)="C.F.Fogarty III 012 
3456789ABCDE1600112233445566778899AABB 
CCDDEEFF496V" 

1060 SCHEMAS (384)= "»":SCHEMASC145)= 5CH 
EMAS (144) 

1065 SH$="| Enter your database name 

| | (Up to 15 Characters) _ 


1070 SH$(81)="| 


I I 


1075 X = U5R (MOVEMEM,ADR(SHS),SCREEN + 760 
,160,CONVERT) 

1080 NUM=0:REC5IZE=0:0PTI0N=340:SELECT 
-OPTION:START-OPTION:TYPE=ASC( M A"):MAX 
= 15:LOC-824:GOSUB 200 
1085 SCHEMAS(92,106)=TMP2$ 

1090 SH$="| Enter a label: 

|| (Up to 8 characters) - 

- I" 

1095 SHS(81)="| 

M| " 

1100 X = USR(MOVEMEM,ADRCSWS),SCREEN+760 
,160,CONVERT) 

1105 TYPE=ASC ("A") :MAX-8:L0C = 823:GOSUB 
200:TEMP=LEN(TEMPS) 

liiO IF TEMP <MAX THEN TEMPS(TEMP + 1,MAX 
)=BLANK$ 

1115 SCHEMAS(145+NUM*8,144+(NUM+1)*8)= 
TEMPS:NUM=NUM+l:TEMP$-STR$CNUM) 

1120 IF LEN(TEMP$)=1 THEN TEMP$(2)=TEM 

p$:temp$(1,1)="0" 

1125 SCHEMAS(107,108)^TEMPS 

1130 SH$-“| Enter size of field for 

_.|| (MaXiHUM size is 31 

bytes) I" 

1135 SHS(27,41) =TMP2$:X=USR(MOVEMEM,AD 
RC5HS),5CREEN+760,160,CONVERT) 

1140 TYPE=ASC ("N") :L0C=796:MAX=2:GOSUB 
200:TRAP 1130:TEMP=VAL(TEMPS):IF TEMP 
>31 OR TEMP <1 THEN TEMP$="31" : TEMP=31 
1145 TRAP 955:RECSIZE=RECSIZE+TEMP:IF 
TEMP <10 THEN TMP2$=TEMP$:TEMPS = "0 M :TEM 
P$(2)=TMP2$ 

1150 TEMP=109+(NUM-1)#2:SCHEMAS(TEMP,T 
EMP+i)=TEMPS 

1155 TEMP$=5TRS(RECSIZE) 

1160 IF LEN(TEMPS)<3 THEN TMP2S=TEMP$: 
TEMPS="0": TEMPS (2)=TMP2S:GOTO 1160 
1165 SCHEMAS(141,143)=TEMP$ 

1170 GOSUB 1285:IF NUM=16 THEN 1200 
1175 SH$-“| Press Aii to define anoth 
er field 

I" 

1180 SHS (81) ='* | Press | 
ing your LAST | | 

XiMUM 16 fields).|" 

1185 X = U5R(MOVEMEM,ADR(SHS),SCREEN+760 
,160,CONVERT) 

1190 IF PEEKC53279)=3 THEN 1090 
1195 IF P EEK (53279)<> 6 THEN 1190 
1200 REM 

1205 FOR 1=0 TO 2:X=USR(SECTORIO,1+1,8 
7,ADR(SCHEMAS(1*128+1))):NEXT I 
1210 CLOSE 82:0PEN 02,8,0,"D1:DATABASE 
":CLOSE 02 

1215 0PTI0N = 380:SELECT = 350:START=425 :R 
ESTART=0:TYPE=ASC("A") 

1220 GOTO 985 
1225 REM 

1230 KSCRHS=" Create-a-base (c) 1985 C 


-OR- 

after defin 
field (Ma 


INIT-KSCRN 


.F.Fogarty III " 


PK 1235 KSCRNS (41) = ". 


JR 1240 KSCRNS(720)=" KSCRNS(82)=K5CRNS 
(81) 

HI 1245 KSCRNS(721)=" |- 

I" 

TY 1250 KSCRNS (761)=" | /\A ■ Mode. 

♦ h |&S-5ort db. |“ 

ZE 1255 KSCRN$(801)="I|L"“ Field to EDIT. 
|&P-Printout.|" 

OV 1260 KSCRNS (841)="J| -rH Hhen DONE Edit 
ing.(DATABASE NAME/|" 

GJ 1265 KSCRNS (881) =" | j ■!+ CANCEL Operati 
on. _ T*' 

KA 1270 KSCRNS(921)=" >- 


LU 1275 SCREEN=PEEK(88)+256*PEEK(89) 

BB 1280 RETURN 

IF 1285 GOSUB 1225:NUMFIELDS=VAL(SCHEMAS( 
107,108)):FL(0)=0:FX(O)=O 
JD 1290 FOR 1=0 TO NUMFIELDS-i 
BP 1295 X=I*40:KSCRNS (81 + X,88 + X)=5CHEMAS( 
145 + 1*8,152 + 1*8) :KSCRNS (89 + X,89 + X)=">" 
ON 1300 IN=109+I*2:IN=VAL(SCHEMAS(IN,IN+1 
) ) : KSCRNS (90 + X, 89 + X + IN) UNDERLINES : FL ( 
I+1)=IN:FX(I+1)=FX(I)+IN 
HJ 1305 NEXT I:KSCRNS (905,919)=SCHEMA$(92 
,106):DSCRN$=KSCRN$:TSCRNS=KSCRNS 
AU 1310 REC5IZE=VAL(SCHEMAS(141,143)) 

IF 1315 X=USR(MOVEMEM,ADR(KSCRNS),SCREEN, 
960,CONVERT) 

AL 1320 RETURN 
BV 1325 REM ETiTiH 

ZA 1330 SHS="|Insert Create-a-base Maste 
r disk and | | Press | -r 1 ! to SORT datab 
ase. I" 

LQ 1335 SHS(81)="I - OR - 

|| Press /Vi. to use CU 
RRENT database. |" 

RZ 1340 X=USR(MOVEMEM,ADR(SHS),SCREEN+760 
,160,CONVERT) 

HV 1345 IF PEEK(53279)=3 THEN RETURN 
BJ 1350 IF PEEK(53279)<>6 THEN 1345 
EK 1355 POP :RUN "D:SORT" 


Listing 4. 
BASIC listing. 


Sort for Create-a-base 
(0 1985 C.F.Fogarty ill 
Version 3.4 August 9,1985 


HQ 1 REM 
AR 2 REM 
SZ 3 REM 
NJ 4 REM 

AE 100 POKE 106,PEEK (106)+8:P0KE 53277,0 
KT 105 GOSU B 475:G0 TQ 215 
RC HO REM iHIIIKIil 

LL 115 ICBAH = INT (ICBAL/K256) :ICBAL=ICBAL- 
ICBAH*K256:POKE 850,ICCOM:POKE 852,ICB 
AL:POKE 853,ICBAH:POKE 856,ICBLL 
RZ 120 POKE 857,ICBLH:X=USR(CIO,K16):IF P 
EEK (851)> K3 AND PEEK (851)<>136 THEN ST 
OP 

ZQ 125 RETURN 
RA 130 REM 

NU 135 ? 86:? 86;"*reorg in progress...": 
CLOSE 81:OPEN 81,K12,KO,"Di:DATABASE": 
PTR=LENGTH+K1:PTR2=FX+K1:E0F=CTR:K=K1 
AL 140 S=ASC(BUFR$(PTR))+ASC(BUFRS(PTR+K1 
))*K256:C=ASC(BUFR$(PTR+K2)):POINT 8K1 
,S,C:ICC0M=K7:ICBAL=TEMP:GOSUB 115 
TN 145 POSITION K0,4:? 8K6;"COUNTDOHN..." 
JEOF;" " 

BL 150 IF BUFRS(PTR,PTR+K2)=BUFR$(PTR2,PT 
R2+K2) THEN 185 

JS 155 S2 = ASC (BUFR$ (PTR2))+ASC(BUFRS(PTR2 
+ K1))*256:C2=ASC(BUFR$(PTR2 + 2)) :POINT 
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Create-a-base 


continued 


GET SORT FIELD 


81 ,S2,C2:ICC0M=K7:ICBAL=TMP2:G0SUB 115 
FY 160 IF BUFR$tPTR-Kl,PTR-Kl)= ,, :r THEN 1 

85 

XU 165 POINT 8K1,S2,C2:ICC0M=K11:ICBAL=TE 
MP : GOSUB 115:BUFRS CPTR-K1, PTR-K1) = ,, !|" ! 
EOF=EOF~i 

PW 170 I=USR(SEARCH,ADR(BUFR$),ADR(BUFR$( 
PTR2)),LENGTH):PTR=I*(LENGTH+K3)~K2:TE 
MP$=TMP2$:PTR2=FX+K1+(I-K1)*K3 

OJ 175 GOTO 145________ 

U« 180 REM 

MR 185 OK^KOilFBUFRSCPT^KlTPTR^Kl) ^ 

THEN BUFR$(PTR-Kl,PTR-Kl)=":i M :EOFrEOF 
-K1 

SR 190 FOR I = K TO CTR:J = I*(LENGTH+K3)-K2: 
IF BUFR$(J-K1, J-Kl) THEN PTR-J:PT 

R2-FX + K1+ (I _ K1)*K3:K-I:I-CTR + K1:0K-K1 
XM 195 NEXT I:IF OK THEN 140 
VL 200 CLOSE 8K1 

GL 205 FX=41:G0SUB 440:TRAP 205 : RUN "Di : C 
REATEAB . ASE‘‘ 

NT 210 END 

KH 215 REM _ 

NE 220 FX=Ki!GOSUB 44 0 :10 = 82:GOSUB 425:IF 
SCHEMA$(52.64) <> " 1H THEN 

? CHR$ (253) :GOTO 215 

NU 225 J-OAL (SCHEMAS(107,108)) :? 8K6;"KS0 
rt on which field?" 

DZ 230 FOR I = K0 TO J-Kl:? 8K6;I;" "jSCHEM 
A$ (145 + 1*8,152 + 1*8) :NEXT I 
EU 235 TRAP 235:? "What is your choice";: 
INPUT KITRAP 4OO0O:IF K>J~K1 OR K<0 TH 
EN ? CHR$(253):GOTO 235 
KH 240 TOO=K0:FOR I = K0 TO K:TEMP-109+I*K2 
:LENGTH=VAL(SCHEMAS(TEMP,TEMP+K1))iTOO 
=TOO+LENGTH:NEXT I 

JA 245 FR0M-T00-LENGTH+K1:RECSIZE-UAL(5CH 
EMAS(141,143)) 

Cl 250 DIM TEMPS(RECSIZE),TMP2$(RECSIZE): 
ICBLH-INT (RECSIZE/K256) :ICBLL=REC5IZE- 
ICBLH*K256 

KE 255 TEMP$="¥":TEMPS(RECSIZE)="¥":TEMPS 
(K2)=TEMP$:TMP2$=TEMP$:TEMP=ADR(TEMPS) 

:TMP2-ADR(TMP2S) 

YN 260 I = INT ( (FRE (KO)-512)/RECSIZE) :BUFSI 
ZE=I*RECSIZE:DIM BUFRS(BUFSIZE) :BUFR$ = 
"“:K=K0: EOF-KQ 
YN 265 REM 

MB 270 CLOSE 8K1:0PEN 8K1,K12,KO,"D1:DATA 
BASE":? 8K6;"Kcondensing database":CTR 
= K0 

SB 275 ICC0M-K7:ICBAL=TEMP:GOSUB 115:IF P 
EEK(851)=136 THEN CLOSE 8K1:E0F=K1:GOT 
0 300 

RZ 280 IF TEMP$(K1,K1)= , S" THEN 275 
X5 285 BUFR$(LEN(BUFR$)+K1)=TEMP$:CTR=CTR 
+K1:POSITION KQ,K3:? 8K6;"READING RECO 
RD 8"jCTR 

DD 290 IF LEN(BUFR$)=BUFSIZE THEN K=K+1:G 
OSUB 300 
SF 295 GOTO 275 

YL 300 REM_ _ 

PC 305 ? 8K6:? 8K6;"BoHt0n[?] r0cEr0s . . . " : X 
-U5R(ADR (SORTS),ADR(BUFRS),LEN(BUFRS)/ 
RECSIZE,RECSIZE,LENGTH, FROM) 

ZC 310 FX=21:IF LEN (BUFRS)=K0 THEN GOSUB 
450:GOTO 350 

QL 315 IF FORMATTED THEN GOSUB 445:G0T0 3 
35 

NO 320 ? 8K6;"N> >>>> warning! <<<<C. 

EEacmcmni] !>>>>> <<<? 

HO 325 GOSUB 450:? 8K6;"FORMATTING 


WRITE NEW DATABASE 


": CL 

OSE 8K2:XIO 254,8K2,K0,K0,"D1:*.*":LET 
F0RMATTED=1:I0=87:G05UB 425 
RX 330 CLOSE 8K2:0PEN 8K2,8,KO,"D1:OUTPUT 


DD 340 ICBAL = ADR (BUFRS) :ICBAH = INT (ICBAL/K 
256):ICBAL=ICBAL-ICBAH*K256:P0KE 866,K 
11:POKE 868,ICBAL:P0KE 869,ICBAH 
SK 345 POKE 873,INT (LEN(BUFRS)/K256) :POKE 
872,LEN(BUFRS)-PEEK(873)*K256:X=USR(C 
10,32) :IF PEEK (867)>K1 THEN STOP 
MU 350 BUFRS="":IF NOT EOF THEN FX=K1:G0 
TO 445 

WU 355 CLOSE 8K2:XI0 32,8K2,KO,KO,"D1:OUT 
PUT,DATABASE" 

OU 360 IF NOT K THEN 20 0 
GN 365 REM 

WQ 370 FX=CTR*(LENGTH+K3):J=CTR*K3:IF BUF 
SIZE>=FX+J THEN 385 

HC 375 LENGTH=LENGTH-K1!T00=T00-K1:IF NO 
T LENGTH THEN STOP 
PR 380 GOTO 370 

LM 385 PTR=KI:PTR2=FX+K1:BUFR$="¥":BUFR$( 
FX+J)="¥":BUFRS(K2)=BUFR$:CLOSE 8K1:0P 
EN 8K1,K12,K0,"Di:DATABASE" 

AN 390 ? 8K6;"Nreading pointers..." 

ZG 395 FOR I=K1 TO CTR:P05ITI0N K0,K3:? 8 
K6,-"RECORDS TO GO...";CTR-Ij" " 

PN 400 NOTE 8K1.S,C:X=INT(S/K256):P$=CHRS 
(S-X*K256) :P5(K2)=CHR$(X) :P$ (K3)=CHR$( 
C):ICC0M=K7:ICBAL=TEMP:G0SUB 115 
BT 405 BUFRS(PTR,PTR+LENGTH - K1)=TEMP$(FRO 
M, TOO) : BUFRS (PTR + LENGTH,PTR + LENGTH + K2) 
=PS:BUFRS(PTR2,PTR2+K2)=P$ 

Ctt 410 PTR=PTR+LENGTH+K3:PTR2=PTR2+K3:NEX 
T I:? 8K6:? 8K6;"0oHtanp] p0i[StSr0. . ." 
PA 415 X=USR(ADR(SORTS),ADR(BUFRS),FX/(LE 
NGTH+K3),LENGTH+K3,LENGTH,Kl) 

MU 420 GOTO 130 
xx 425 rem EBEEffiEmmaiECEE 
SM 430 FOR I = KO TO K2:X = USR (ADR (SECTORIOS 
),I + K1,I0,ADR(SCHEMA$(I*128 + K1))) : NEXT 
I 

ZV 435 RETURN 
RR 440 REM 

PU 445 GRAPHICS Ki:POKE 710,KO 
PS 450 POSITION 7,5:? 8K6;"insert":? 8K6: 
? 8K6;TABLES(FX,FX+19):? 8K6j" 
disk"!? 8K6:? 8K6 

PU 455 ? 8K6;“into d isk d rive 81":? 8K6:? 
8K6;"and press ( 1-kfl.iti to":? 8K6;“con 
tinue..." 

FW 460 IF PEEK (53279)<>K6 THEN 460 
XL 465 ? 8K6;"IS"; 

ZO 470 RETURN 
DG 475 REM iTTil 

CH 480 K0=0:Kl=l:K2=2:K3=3:K6=6:K7=7:Kll= 
11:K12=12:K16=16:K256=256 
SU 485 DIM CI0$(K7),P$(K3),SECT0RI0$(31), 
SCHEMAS(384),SORTS(328),TABLES(6 0) ,SEA 
RCHS(77) 

OX 490 SCHEMA$="¥":SCHEMAS(384)="¥":SCHEM 
AS (K2)^SCHEMAS 
UQ 495 CIO$="hhhSLUB' 

530 TABLE$=" 

J-B-E 


INSERT DISK 


WM 


output 


database 
create 


WZ 540 CIO = ADR (CIOS) :SEARCH = ADR(SEARCHS) 
ZY 545 RETURN 


OZ 335 ? 8K6;"Nwriting new database":IF 
NOT EOF THEN ? 8K6;"BL0CK 8";K 
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by David Plotkin 

Squeeze is a fast-action game written in Action! Your 
objective is to control the gun in the center of the screen 
and keep the advancing rows of multicolored bricks from 
meeting in the middle. 

The bricks grow faster and the action speeds up in the 
upper levels. You can choose your own level of difficulty 
and which score will end the game (your goal). 

The gun moves up and down under joystick control. 
Pushing the stick left and right aims the gun in the ap¬ 
propriate direction. And, of course, pressing the fire but¬ 
ton unleashes a stream of bullets to obliterate the bricks. 

If two lines of bricks in the same row manage to meet 
in the center of the screen, the game is over. So keep the 
lines of bricks from reaching the center—especially tough 
because the line from the opposite side will grow faster 
to try and meet its partner! 

Each PROCedure is commented to tell what it does. Each 
level is 1000 points. 

Good luck! H 

David Plotkin has his Masters in Chemical Engineering 
and works as a Design Engineer for Chevron U.S.A. He 
owns a 130XE and a 520ST, and is currently a heavy Pas¬ 
cal user on the ST. His interests (on computers) lie in 
programming, games and tutorials. 


Listing 1. 
Action! listing. 


MODULE; SQUEEZE by David Plotkin 

; CHECKSUM DATA 

;[9D B7 4C F7 52 58 31 F9 

j 40 38 55 8D C3 54 96 2B 

; 84 40 20 7F IB 2A 55 57 

; OA 61 51 8F 9F 58 F4 4B 

; B6 B4 B5 E9 3 

BYTE ChrBase=756,Max,Bkgrnd=710, 

Fate=53770.Levels til,Cursln=752, 
Gunx=[193,Guny=[123,Ps-C13, 

Loud=[03,Dly=C33,Hard=E13 

CARD Scrn=88,RaMSet,HiMeM=$2E5, 

Scores[03,Target 

CARD ARRAY LineptC24J,L1C303 

BYTE ARRAY Charset,Shotstatus[30), 
ShOtX130),Shoty(30),EndL(24) , 
EndR(24), 

ShapeTable (O) = 

[104 208 208 213 213 208 208 104 

10 8 7 87 87 7 7 10 

255 255 255 255 255 255 255 255 

170 170 170 170 170 170 170 170 

85 85 85 85 85 85 85 85 

87 87 87 87 87 87 87 87 

175 175 175 175 175 175 175 175 

170 255 170 255 170 255 170 255 

85 255 85 255 85 255 85 255 

85 170 85 170 85 170 85 1703 
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^ Squeeze continued 


PROC Download!) 

jStep back HiMew and Move the 

character set into RAM 

Ran5et= £HiMeM-$400)S:$FC0OjlK boundary 

ChrBaserRaMSet RSH 8 

HiMeM^RaMSet 

MOVEBLOCK (RaMSet,57344,1024) 

Charset^RaMSet 

RETURN 

PROC GrOInit () 

;5et up the address of each screen 
;line and initialize 

CARD XX 

GRAPHICS £0) Cursln=l PRINT f" "5 
FOR XX— 0 TO 23 
DO 

Linept£xx5=Scrn + (40*xx) 

EndL(XX)=0 EndR(XX)=39 
OD 

FOR XX— 0 TO 29 

DO Shotstatus(xx )=0 5hotx£xx)=0 
Shoty£xx)=o Ll£xx)=xx*10O0 
OD Bkgrnd=o 
RETURN 

PROC P1Ot0(BYTE x,y,ch) 

;Plot a char at location x,y 
BYTE ARRAY line 
line=Linept(y) line(x)=ch 
RETURN 

PROC Modify £5 

;Modify the RAM character set 
CARD XX 

FOR xx=0 TO 79 
DO 

Charset £xx+8)=ShapeTable (xx) 

OD 

RETURN 

PROC UpdateScore£) 
jPrint the score and Level 
POSITION (1,23) PRINT ("HamHa") 
POSITION£8,23) PRINTC (Sc ore) 

POSITION (16,23) PRINT C l fW^n~4W ) 
POSITION£23,23) PRINTB (Level) 

POSITION£27,23) PRINT ("Targ: ") 
POSITION£33,23) PRINTC(Target) 

RETURN 

PROC Noise £) 

;the explosions when a block is hit 
IF LOUd=0 THEN RETURN FI 
L0Ud==-2 50UND£l,90,8,Loud) 

RETURN 

PROC NewLevelO 

jset up a More difficult level 
BYTE tiMe=20,lp 

SOUND£1,0,0,0) PUT (125) Level— + 1 
POSITION(9,12) 

PRINT ("New B333B ") POSITION (20,12) 
PRINTB(Level) tiMe=0 
DO SOUND(0,tiMe,10,4) 

UNTIL tiMe>100 
OD 

PUT (125) S0UND£0,0,0,0) 

UpdateScore £) 

FOR 1p — O TO 29 
DO Shotstatus£lp)=0 OD 
FOR lp=0 to 23 

DO EndL(lp)=0 EndR£lp)=39 OD 
IF Level>8 THEN Dly=l ELSEIF Level>3 
THEN Dly=2 ELSE Dly=3 
FI Loud^O 
RETURN 


PROC ChOiceO 

jchoose the difficulty level 

BYTE lp=(ll,tiMe=20,trig = 644, stick=632 

POSITION(2,13) 

PRINT("Select Difficulty with Joystick") 

POSITION£2,14) _ 

PRINT ("Then press BHJJI 1 ') 

POSITION(7 ,16) 

PRINT("1. tet-L M - Goal 8000 points") 
POSITION (7 ,17) 

PRINT("2. [»f JHM" - Goal 12000 points") 
POSITION(7 ,18) 

PRINT("3. mm - Goal 14000 points") 

DO PlOt0(5,lp+15,0) 

IF Stick-14 AND lp>l THEN lp==-l 
ELSEIF stick=13 AND lp<3 THEN 
lp —+ 1 

FI PlotO(5,lp+15,84) 
tiMe=0 DO UNTIL tiMe=20 OD 
UNTIL trig=0 
OD Hard^lp 

IF lp=l THEN Target=80OO ELSEIF 
1 P-2 THEN Target=12000 ELSE 
Target=1400O 
FI 

RETURN 

PROC IntroO 
;The introduction 
BYTE tiMe=20, lp,xx 

BYTE ARRAY he 11 o£0) = [51 49 53 37 37 
37 37 58 37 1 1 11 
POSITIO N (7,5) _ 

print (" rivnwiirBjiiiij:^ ") 

FOR lp = 0 TO* 11 
DO PlOt0(lp+9,8,hellO(lp)) 

SOUND (O,hel10 £lp) LSH 1,10,4) 
tiMe=0 DO UNTIL tiMe=9 OD 
OD S0UND(0,0,0,0) POSITION (7,9) 

PRINT("written in ACTION") 

POSITION£7,10) 

PRINT ("by David Plotkin") 

Choice £) 

FOR 1p — 0 TO 11 
DO XX—1p+9 

DO PlOt0(XX,8,0) XX—— — 1 
IF XX<1 THEN EXIT FI 
PlOt0(XX,8,hellO(lp)) 

SOUND (0,XX LSH 3,10,4) 
tiMe^O DO UNTIL tiMe=l OD 
OD 

OD S0UND£0,0,0,0) PUT(125) 

RETURN 

PROC EndGaMeO 

;the gaMe over routines 

BYTE tiMe=20,Ip,trig=644,xx,yy 

BYTE ARRAY ganeover(O)=[39 97 109 101 

0 47 118 101 114) 

PUT (125) SOUNDfl,0,0,0) 

FOR 1p — O TO 8 

DO PlotO(lp+7,12,gaMeover(lp)) OD 
IF Score> = Target THEN POSI TION (5,7) 

PRINT (“You Met your L hUl ! ! ! ") 

FI Updatescore£) 
tiMe^O 

DO SOUND(0,tine,10,8)UNTIL tiMe=60 OD 
S0UND(0,0,0,0) ChoiceO Levei^o 
FOR 1p — O TO 8 
DO xx=lp+7 yy=12 

DO PlotO(xx,yy,0) xx—+i yy—-i 
IF (XX>39 or yy<i) then exit fi 
P lotO(xx,yy, gaMeover (lp)) 

SOUND (0,XX LSH 3,10,4) 
tiMe=0 DO UNTIL tiMe=l OD 
OD 

OD Score^O NewLevelO 
RETURN 
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PROC MovegunC) 

;Read joystick and wove the gun 
BYTE St iCk=632 

PlotOCGunx, Guny,O);erase the gun 
IF StiCk-14 THEN; thiS is a Stick up 
Guny==-1 EL5EIF stick=13;stick down 
THEN Guny==+1 
FI 

IF Stic k— 7 THEN Ps = l EL5EIF Stick=ll 
THEN Ps=2;stick rightflJ or leftt2J 
FI 

IF Guny<1 THEN Guny=l ELSElF;out of 
Guny>21 THEN Guny=21; Bounds 

FI 

PlotOCGunx,Guny,Ps) ;redraw the gun 
RETURN 

PROC TestcolCBYTE Wh) 

;see if bullet wh hit anything 
BYTE qq 
qq=5hoty Cwh) 

IF ShOtStatUSCwh)=i THEN 

IF EndRCqq)<-ShOtX Cwh) THEN 
PlotO CShOtX Cwh),Shoty Cwh),0) 
Shotstatus!wh)=0 
EndR (qq)--+1 Loud -6 Score==+2 
FI EL5E 

IF EndLtqq)>—ShotxCwhl THEN 
PlotOCShOtXCwh),Shoty Cwh),03 
Shotstatus!wh)=o 
EndL(qq3---1 Loud =6 Score==+2 
FI 
FI 

IF Score>Ll(Level! THEN NewLevelC) FI 
RETURN 

PROC Shoot C) 

;check the trigger and fire if pushed 

BYTE trig=644,lp 

IF trig=i THEN RETURN FI 

FOR lp-0 to 29;find an empty shot 

DO 

IF Shotstatusflp)=0 THEN;got one 
IF Ps=l THEN;gun facing right 
Shotstatus Clp )=1 
ShOtxClp} 3 Gunx+l ELSE 
Shotstatus (lp3 =2 
ShotxClp) 3 Gunx-i 
FI ShotyClp)=Guny 
PlotO(ShotxClp),ShotyClp),84) 
TestcolClp) EXIT 
FI 
OD 

RETURN 

PROC MoveShOtS C) 

;nove the fired bullets 
BYTE lp 

FOR 1 p 3 o TO 29;for each shot 
DO 

IF ShotstatusClp)3i THEN; going right 
PlotO CShOtX Clp),Shoty Clp),0) 
ShOtxClp)3=+l 


IF ShOtxClp)339 THEN 
5hOtstatUSClp)=0 ELSE 
PlotOCShOtXClp),shotyClp),84) 
Testcolcip) 

FI 

FI 

IF ShotstatusClp )32 THEN;going left 
PlotOCShotxClp),ShotyClp),0) 

ShOtxClp) =3-1 
IF Shotx Clp )=0 THEN 

ShotstatusClp )30 ELSE 
PlotOCShotxClp),ShotyClp),84) 
TestcolClp) 

FI 

FI 

OD 

RETURN 


PROC GrowHallsC) 

;grow squares from both sides 


BYTE lUl,lp,dUM,y 

BYTE ARRAY 1 moreC24),rmoreC24) 

FOR 1p=0 TO 23 

DO lmoreClp)=G rMoreClp)=0 OD 
IF Level>10 THEN 

lvl=10 ELSE 1vl=Level 
FI 

FOR lp=i to 1vl+Hard 
DO 

IF Fate>210-lvl LSH 2 THEN;grow 
dUM=RAND C 8 )+3 y = RANDC21)+l 
IF Fate>128 AND EndRCy)>20 AND 
rmoreCy)=o THEN rmoreCy) 3 i 
EndRCy)=z-i PlotOCEndRCy),y,dum) 
EL5EIF EndL Cy)<18 AND 
lmoreCy)=o THEN lMoreCy)=i 
EndLCy)==+l PlotOCEndLCy),y,dum) 
FI 


FI 

OD 

FOR lp=l to 22 
DO IF EndL C1p)=18 AND 
THEN EndGameC) EXIT 
OD 

IF 5core>=Target THEN 
RETURN 


EndR Clp)=20 
FI 

EndGane C) FI 


PROC Maine) 

BYTE time=20 
GrOInitC) IntroC) 

Download C) 

Modify!) UpdateScoreC) 

DO MovegunC) GrowHallsC) 

Shoot C) MoveShotsC) NoiseC) 
time=o POSITIONC8,23) PRINTCCScore) 
DO UNTIL time=Dly OD OD 
RETURN 
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by David Plotkin 


Action!, the high-speed, high-level language from OSS, 
is a really excellent tool for game writing. In fact, once 
you’ve learned its structured approach (and some of its 
idiosyncracies) and tasted its dazzling speed, you may 
never go back to the (normally) slow crawl of BASIC. 

Surface Run, included at the end of this article, is a sam¬ 
ple of what Action! can do. It’s also the first game I’ve ever 
written where too much speed was a significant problem. 
Of course, it’s a lot easier to get rid of excess speed than 
to add it. 

I’ve found that there are two ways to program in Action!. 
The first way can be thought of as “high level,” using the 
many functions and keywords that Action! provides. While 
this is straightfoward, and even allows for pseudo-trans¬ 
lation of BASIC programs (many of the commands or key¬ 
words are the same in both Atari BASIC and Action!), it 
suffers from some loss in speed. An example is found in 
high-resolution graphics. 

PLOT and DRAWTO are available in Action!, but use 
the Atari's CIO routines, the same ones BASIC uses. This 
is not to say that even “high level” Action! isn’t fast. . . 
compared to BASIC, it’s fast indeed. Still, there are ways 
to considerably increase the speed of slower Action! func¬ 
tions, to a point approaching true machine speed. This 
is what I refer to as “low level” Action!. What you do is 
write your own special routines to do the job. This gener¬ 


ally involves direct byte manipulation to the screen, use 
of shifts instead of multiply/divide, and construction of 
tables in the program initialization phase, so that results 
of complex calculations can simply be looked up. 

An example is seen in the graphics routines in Surface 
Run. To fill a graphics 7 screen with color using PLOT 
lakes about 27 seconds. Use of my procedure PLOT7, 
which does some complex direct byte manipulation (bit 
twiddling?), takes about 4.25 seconds. 

The reason that even this procedure still takes so long 
is that there’s a fair amount of math going on before each 
2-bit pair is modified. If you can define your picture ahead 
of time and just place the bytes on-screen using a proce¬ 
dure like FASTDRAW, the process takes about two jiffies 
(or V:io second). In the latter part of this article, we’ll talk 
about some of the more interesting procedures included 
in Surface Run, and what purposes they serve. 

Surface Running. 

To play Surface Run, punch in the listing that follows. 
Before you run it, save it to disk or cassette (SHIFT CTRL- 
W, followed by the filename or C: for cassette), then enter 
the monitor (SHIFT CTRL-M) and compile (C). When the 
computer beeps at you, plug your joystick into port 1 and 
run the program by pressing R. 

You’re in control of a space fighter, zooming low on pa¬ 
trol over the scrolling surface of Stripes, your home plan¬ 
et. Pulling back on your joystick causes you to climb; 
pushing foward makes you dive toward the planet’s sur- 


ATARI 8-BIT EXTRA 


ANALOG COMPUTING 31 


^ Surface Run continued 


face, although your flight computer won’t let you crash (at 
least, not into the surface). 

Pressing the joystick left and right will cause the fight¬ 
er to respond in the appropriate direction. It will also re¬ 
spond to diagonals, for added maneuvering. 

And you’re not defenseless. Pressing the fire button un¬ 
leashes missiles which emerge from your wingtips and 
converge in the distance. You may have up to four mis¬ 
siles on the screen at any one time. 

The enemy is a massive “mother ship,” which emerges 
from hyperspace with a roar and moves rather unpredict- 
ably about the screen, launching tracking fireballs at you. 
You must neutralize all these fireballs with your missiles, 
while destroying the mother ship—by first shooting out 
the left engine, then the right, and, finally, the main cen¬ 
ter one. 

Strategy is something of a problem: to destroy the moth¬ 
er ship, you must move in close, but the fireballs are more 
dangerous if you do. You start out with four ships. The 
number of ships left and your score are kept in the win¬ 
dow at the bottom of the screen. My high score is about 
7000, so good luck and good hunting! 

The real Action! 

Some of the PROCedures used in Surface Run are quite 
interesting, and they enhance the speed of the program 
considerably. Let’s touch on some of these programming 
techniques. 

(1) The use of the DEFINE statement to equate assem¬ 
bly code statements (such as RTI or PHA) to the actual hex 
codes that represent these instructions make the listing 
more readable and understandable. 

(2) SAVETEMPS and GETTEMPS are found whenever 
an interrupt (such as VBI or System Timer) is used, to save 
and retrieve the temporary math variables needed by the 
main program. Thus, the interrupt doesn’t change these 
variables, which could cause some unpredictable results 
in the main program. The line of hex codes is two short 
machine language routines to do the job. 

(3) PROC DLINT is a display list interrupt (DLI) rou¬ 
tine written in Action! Note the use of the assembly code 
blocks DEFINEd earlier to save the accumulator, and the 
X- and Y-registers during the interrupt. We did not use 
SAVETEMPS and GETTEMPS, because there isn’t enough 
time, but it seems to work okay. The DLI changes the back¬ 
ground color by displaying a hue taken from the byte ar¬ 
ray CLRS. 

(4) PROC INIT7 does the program initialization. The 
real purpose is do some drawn out math to find screen 
addresses, then store the results in an array—because it’s 
much faster to look those results up than to calculate them, 
which would slow down program execution. Thus, the low 
byte of the address of each screen line is stored in array 
YLOCL, and the high byte in array YLOCFI. The array 
RSFI2 holds which of the 40 bytes on the line is actually 
referred to by the X-coordinate range from 0 to 159. There’s 
a little trickiness going on here, to break up the 2-byte ad¬ 
dress held in SCREEN into the two 1-byte numbers need¬ 
ed by YLOCL and YLOCH. By making CARD SCREEN 
have the same address as BYTE LOWl, each time SCREEN 


is changed, LOWl and HIGHl are also automatically 
changed. This is sneaky, but very fast. 

(5) PROC DLSETUP modifies the display list, to turn 
on the high byte of each instruction on each line where 
a DLI is required. The instruction VDSLS T= DLINT in¬ 
stalls the DLL 

(6) PROC ROTATE is a routine executed each time the 
system timer interrupt is called (more on this later). It ro¬ 
tates the elements of the array CLRS, so that the colors dis¬ 
played by the DLI appear to move down the screen. 

(7) INT FUNCs HSTICK and VSTICK are used to read 
the joystick. They’re taken directly from the Programmer’s 
Aid Disk (PAD). 

(8) PROC DRAW7 allows you to plot a point on (he 
screen in any of the graphics 7 colors. This is much quicker 
than using the PLOT function. You pass the x- and y- 
coordinates, and the color number to the procedure. 
There’s some major speed enhancement here. First, note 
the BYTE variable declarations. When byte variables are 
passed to a procedure, they are passed on page 0 in loca¬ 
tions $A0 to $AF. So, declaring byte variable Xl to reside 
at location $Al equates it to the passed variable X. But, 
because it’s a 0 page quantity, operations using Xl will 
be faster. Note also that the variables LOW and HIGH are 
equated to the proper element of YLOCL and YLOCH. 
This automatically moves byte array LINE to the proper 
line on the screen, because the variables LOW and HIGH 
reside in the memory location that defines where byte ar¬ 
ray LINE will be (see the MODULE statement at the be¬ 
ginning of the program). The last line of this procedure 
looks pretty horrendous, but what it does is directly 
manipulate the proper screen byte by punching a 2-bit hole 
in the byte with a bit mask (array BM), then filling in the 
hole with the proper color via a color mask (array CM). 

(9) PROC FASTDRAW is the fastest of the drawing rou¬ 
tines. It takes data contained in a byte array and places 
it directly on-screen, byte by byte. The variables WIDTH 
and HEIGHT determine the limits for picture drawing, and 
XX and YY are the position to draw the picture on the 
screen. The drawback to using this procedure is that you 
have to figure out how to draw a picture and convert it 
to a string of bytes. FASTDRAW is set up to use a picture 
drawn with DrawPic, from Artworx. When you construct 
a picture with DrawPic, you can save the image to disk 
as BASIC program lines containing a string of bytes. Draw¬ 
Pic also automatically saves the width and height. It is 
then simple to enter these program lines into an Action! 
program and modify them to the proper format. The byte 
arrays SHIP, NOLEFT and NOENG declared at the begin¬ 
ning of the program are constructed in just this manner. 

The rest of the procedures are fairly straightforward. 
PM GRAPHICS, PMCLEAR, and PM ADR are from the 
PAD, although PMGRAPHICS is a cut-down version of the 
general routine provided on PAD. 

ERASESHIP removes the mother ship from the screen 
and increments the difficulty each time you triumph over 
one. WINDOW draws the text window at the bottom of 
the screen. UPDATE prints the new score, while UPDATE- 
SHIP keeps track of the number of ships you have left. 
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TESTHIT checks to see if your missiles have hit the 
proper spot on the mother ship. SHIPFLY moves your lit¬ 
tle space fighter in response to the joystick. MISSILEFIRE 
fires off a missile (don’t you just love descriptive names?) 
when you press the fire button, provided there aren’t four 
missiles on-screen already. MISSILEMOVE converges the 
missiles in the distance. The distance the missile has trav¬ 
eled from its original Y-coordinate is used to determine 
the X-coordinate. 

SHIPDRAW places the mother ship on the screen, while 
SHIPMOVE bounces it around. DARKEN checks to see if 
the background is lit up from an explosion. It progressively 
darkens the area, so the explosions can continue while oth¬ 
er things happen. 

SHOOTBACK causes the mothership to launch any un¬ 
used fireballs at your fighter. ALIGN determines the direc¬ 
tion the fireballs have to move to reach your ship and how 
far they will move each time (based on the difficulty lev¬ 
el). BALLMOVE moves fireballs in the appropriate direc¬ 
tion. HITBALL figures out which fireball was hit and 
removes it from the screen, making an explosion and light¬ 
ing up the background. 

ENDGAME displays the end-of-game message and 
restarts the game when you hit the fire button. BLOWNA- 
WAY checks to see if a fireball has hit your fighter and 
blows it apart if one has. 

Finally, MAIN does the initial setup and calls each of 
the other procedures as needed. One popular misconcep¬ 
tion is that the “driving” PROC must be called MAIN. This 
is not true; the procedure may be called anything. What’s 
different about MAIN is that it is the PROCedure which 
calls all the others. 

Action! is a very nice midpoint between BASIC and 
assembly—and, as you can probably tell. I’m a big fan. 
Programming in Action! is more fun than in BASIC, with 
far better results. And it’s much easier than learning as¬ 
sembly language. H 


Listing 1. 
Action! listing. 


; CHECKSUM DATA 

jtE9 50 29 34 E5 OE ED 
; CO 79 81 OC 97 C2 39 

; 40 OB 36 1C 52 FF 63 

J 11 AE 88 3A 75 2B EO 

j 47 BD 52 23 D2 71 86 

; D6 D5 ID El 65 60 86 

j D9 64 A9 70 A1 2F BC 

; F6 90 64 7D 8B 76 C9 

; 54 32 97 68 20 1A 37 

i 5A 59 ] 

MODULE; SURFACE.RUN 
DEFINE RTI-"$40“, 

PHA = ,, $48 m , 

PLA="$68 M , 

TXA="$8A", 

T AX-"$AA", 

TYA="$98 M , 

T AY-"$A8", 

5AVETEMPS^"t$A2 7 $B5 $A8 $48 
$CA $10 $FA3", 


98 
01 
91 
7D 
9 A 
47 
97 
EO 
FB 


GETTEMP5 ="t$A2 O $68 $95 $A8 

$E8 $EQ 8 $D0 $F83" 

CARD 0LD,SDLST=560,UDSLST=512, 
SCRL0C-88 J CDTMV2=$21A J 
CDTMA2-$228,HIMEM-$2E5, 
PM_BA5EADR,ADRES,ADRESB, 

SCORE-to: 

INT SX=tlJ,SY=C13 

INT ARRAY BXDR-tO 0 O o:, 

BYDR=C0 0 O O: 

BYTE NMIENr$D40E,C0LBK=$D01A,T=$DA. 
UC0UNT-$D40Bj WSYNC-$D40A, 

count=co:. 

PMHITCLR=$D01E,DMACTL-$22F, 
GRACTL=$D01D,PMBASE=$D407, 
PRI0RITY-$26F,X0,Y0,C0LWND-$D018, 
SHIPX,SHIPY,SHIPSTATrtO:, 
PCLR0-704,PCLRM-711,C0LR0-708, 
C0LRlz709,C0LR2=710,C0LR4=712, 
FATE=53770,NUMSHIPzt43,CURSH=752, 
TXTR0W=656,TXTCOL-657,LUL-tlO:, 
LVLl^tlOJ,SND1=$D20F,SND2=$D208 

BYTE ARRAY DLI5T,YLOCLf80), 

YLOCH£803,RSH2C160J, 

PMHPOSC8J =$D000, 

PMUPOS(8)=[Q 000000 o:, 
PM-WIDTH(5)-$DO08,PLPTR, 
PM_MISMASK C4J-D$FC $F3 SCF $3F1, 
BALLlrtO 0 0 O 165 90 36 90 90 36 
90 165 o o o o:, 

PCOLRt4)-704, 

BALL2=t0 O 0 0 90 165 219 165 165 
219 165 90 0 0 O OI, 

BSTAT= [0 0 0 OI, 

BX-to o o o:,BY=to o o o:, 

BLANK= tO 000000000000 

o o o: 

BYTE ARRAY CLRS£03=t64 66 68 70 72 74 

64 66 68 70 72 74 64 66 68 70 72 

74 64 66 68 70 72 74 64 66 68: 

BYTE ARRAY BM£O3=t$C0 $30 $C $3:, 

CM to: = t$0 $55 $AA $ff:, 
SHIPSHAPE to: = to 0 O 0 66 36 24 165 
231 165 24 36 66 0 0 

o o:, 

MSTATUS(03=10 0 0 03, 

mx to: = to o o o:, 

MY £03 = tO 0 0 0: , 

MXOLD £03 3 to 0 o o:, 

MY0LD £03 = tO 0 O 03, 

SHIP £1003 — 

■ H'¥*¥■ e 1 p 1 ¥ , fl , CJ , E , n ‘ h^^'A'H'U'T'Q 

■U't'A^^'H'Q'j'l'B'a 
■ ► A'B'U’T 

■¥‘¥■¥■¥'¥■¥■¥■¥■¥■¥:, 

;BYT=10:LIN=10 
NOLEFT £1003 = 
c . ¥ - ¥ - ¥ . ¥ . ¥ . ¥ . ¥ . ¥ . ¥ . ¥ . ¥ . ¥ . ¥ . l-n'X'I'Y 
' h , ¥ , ¥ , ¥ , ¥ , ¥ , E3 , n , C‘"L , i , ¥ , ¥ , ¥ , a •U-T'Q 
■U' 9'A' ¥ , ¥‘¥ , T' j'T'Q 1 DE' ¥'¥■¥■■) ‘ j 
1 ►'m 1 ¥■¥■¥■ r‘u 1 U‘ A 1 ¥'¥■¥ 
■¥'¥'B , n , G , l 1 h , ¥'¥'¥ I ¥ 1 T.TK , I , ¥ 1 h'¥ 
■¥■¥■¥■¥■¥■¥’¥■¥■¥'¥:, 

;BYT=10:LIN=10 
NOENG £1003 = 

c , ¥ . ¥ .¥■¥■¥■¥■¥'¥'¥'¥■¥■¥■¥■ H'«‘■"¥ 
■¥■¥■¥■¥ , ¥ , ¥ , H , n , C'¥■¥■¥>¥'¥ , a , U , T , Q 

1 U'D ■¥■¥■¥' ¥'T' j *'¥ , ¥ , ¥ 1 ¥'H ■ j 

’► , B , n , * , ¥ , ¥ , ¥ , ¥ , r , U‘T , B , U , D , ¥ , ¥ , ¥ , ¥ 

■¥'¥'B , l!l , C , * , f’¥'¥'¥'¥'l , a , * , l , ¥ , ¥ , ¥ 



■ ►■ffl'¥■¥’W'B'j 
1 E ■ U 1 9 1 A 1 ¥ 1 ¥ 1 G 
h ■ ¥ 


ATARI 8-BIT EXTRA 


ANALOG COMPUTING 33 



^ Surface Run continued 


• V'VVV] 

BYTE ARRAY LINE 

BYTE LOW=LINE, HIGH=LINE+1 

PROC DLINTtJ 
BYTE DUM 

[PHA TXA PHA TYA PHA) 

IF VCOUNT> 94 THEN 
W5 YNC — J. 

COLBK-O COLWND=0 
ELSE DUM=CLRS (COUNT) 

WSYNC=1 
COLBK=DUM 
FI 

C0UNT=C0UNT+1 
IF C0UNT=27 
THEN COUNT=0 
FI 

[PLA TAY PLA TAX PLA RTI) 

PROC INIT7() 

BYTE LO W1,HIGH1,I 
CARO 5CREEN=L0W1 
GRAPHICS (7) 

C0LR0=44 C0LR1=102 
C0LR2=52 C0LR4=0 
SCREEN-5CRL0C 
1 = 0 

WHILE I<80 DO 
YLOCL(I)= LOWl 
YLOCH(I)=HIGHl 
SCREEN=5CREEN+40 
1 = 1 + 1 
OD 
1 = 0 

WHILE I<160 DO 
RSH2 Cl)=1 RSH 2 
1 = 1 + 1 
OD 

RETURN 

PROC DLSETUP () 

BYTE I 
INIT7 t) 

NMIEN=$40 
DLIST=SDLST 
VDSLST=DLINT 
FOR 1=30 TO 40 
DO DLIST tl)=141 OD 
FOR 1=42 TO 54 STEP 2 
DO DLIST(I)=141 OD 
FOR 1=57 TO 72 STEP 3 
DO DLIST (I)=141 OD 
FOR 1=76 TO 84 STEP 4 
DO DLIST Cl)=141 OD 
NMIEN=$C0 
RETURN 

PROC ROTATEO 

BYTE HOLD,CTR,CNTR 

CPHA TXA PHA TYA PHA) 

SAVETEMP5 
HOLD = CLRS (26) 

FOR CTR=0 TO 25 

DO CNTR=25-CTR 

CLRS(CNTR + 1)=CLRS (CNTR) OD 

CLRS (0)=HOLD 

CDTMV2=2 

GETTEMPS 

[PLA TAY PLA TAX PLA) 

RETURN 

INT FUNC HSTICK(BYTE PORT) 

BYTE ARRAY PORTS (4)=$278 

INT ARRAY VALUE(4)=[0 1 $FFFF 0) 

RETURN (VALUE((PORTS(PORT)&$C) RSH 2)) 
INT FUNC VSTICK(BYTE PORT) 


BYTE ARRAY PORTS(4)=$278 

INT ARRAY VALUE(4)=[0 1 $FFFF 0) 

RETURN (VALUE(PORTS(PORT)&3)) 

PROC DRAW?(BYTE X,Y,CLR) 

BYTE X1=$A0,Y1=$A1,CLR1=$A2 
LOW=YLOCL(Yl) 

HIGH=YLOCH(Yi) 

T=RSH2(XI) 

LINE(T) = (((BM(Xi&3) ! $FF) &LINE (T) ) Y. 
(BM(X1&3)&CM(CLR1))) 

RETURN 

PROC FASTDRAW(BYTE ARRAY PICTURE 
BYTE WIDTH,HEIGHT,XX,YY) 

BYTE LCTR1,LCTR2 
CARD LCTR3 

FOR LCTR1=0 TO HEIGHT-1 
DO LOW=YLOCL(YY + LCTR1) HIGH = YLOCH (YY + 
LCTR1) 

LCTR2=XX+WIDTH 

LCTR3=(LCTR1+1)*WIDTH-1 

DO 

LINE (LCTR2)=PICTURE(LCTR3) 

LCTR3==-1 
LCTR2==-1 
UNTIL LCTR2=XX 
OD 

OD RETURN 

PROC PMGRAPHIC5() 

ZERO(PMHP0S,8) ZERO(PMVPOS,8) 

ZERO(PM_WIDTH,5) 

DMACTL=$3E 

PM_BASEADR=(HIMEM-$80O)&$F800 
PMBASE=PM_BASEADR RSH 8 
HIMEM=PH_BASEADR+768 
PRIORITY==&$C0X17 GRACTL=3 
RETURN 

CARD FUNC PMADR(BYTE N) 

IF N> =4 THEN N = 0 ELSE N== + l FI 
RETURN(PM—BASEADR+768+(N#$1O0)) 

PROC PMCLEAR(BYTE N) 

CARD CTR 

BYTE ARRAY PLAYADR 
PLAYADR=PMADR(N) 

IF N<4 THEN ZERO (PLAYADR,$100) 

ELSE N==-4 
FOR CTR=0 TO $100-1 
DO PLAYADR(CTR)==&PM_MISMASK(N) OD 
FI 

RETURN 

PROC ERA5ESHIP () 

BYTE LOOPX,LOOPY,LL 
LL=5HIPX LSH 2 
FOR LOOPY=5HIPY TO SHIPY+IO 
DO 

FOR LOOPX=LL TO LL+39 
DO DRAW7(L00PX,LOOPY,O) OD 
OD 

LVL = = + 2 IF LVL>20 THEN LVL = 20 FI 
LVLl==+5 IF LVL1>200 THEN LVL1=20O FI 
RETURN 

PROC WINDOW() 

BYTE LOOPS 

TXTROW=0 TXTCOL=0 CURSH=1 

PRINT (" |-") 

PRINT ("-1") 

FOR L00P5=i TO 2 DO 
TXTR0W=L00P5 TXTC0L = 0 PRINT( ,, | n ) 
TXTC0L = 38 PRINT (”|") 

OD TXTR0W=3 TXTCOL=0 

PRINT (" I-■') 

PRINT ("-1 ") 
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TXTROW=i TXTC0L=5 PRINTt n 5C0RE: ") 
TXTC0L=12 PRINTCCSCORE) 

TXTCOL=20 PRINT C'SHIPS LEFT: M J 
FOR L00P5=1 TO 5 DO TXTC0L=31+L00P5 
IF NUM5HIP>-L00P5 THEN PRINTC"*") 
ELSE PRINTC" ") 

FI OD 
RETURN 

PROC UPDATE C) 

BYTE LOOPS 

TXTROW-1 TXTC0L=12 PRINTCCSCORE) 
RETURN 

PROC UPDATESHIP C) 

BYTE L00P5 
TXTROW=l 

FOR L00P5=i TO 5 DO TXTC0L=31+L00P5 
IF NUMSHIP>=L00P5 THEN PRINTC"*") 
ELSE PRINTC" ") 

FI OD 
RETURN 

PROC TESTHIT CBYTE MISSUL) 

BYTE MISSLY,MISSLX,XSHIP 
IF 5HIPSTAT=0 THEN RETURN FI 
MI5SLY=CMYCMI5SUL)-30) R5H I 
MISSLX=MXCMISSUL)-48 
X5HIP=SHIPX LSH 2 
IF MI55LY<5HIPY+4 OR 

HISSLY>SHIPY+7 THEN RETURN FI 
IF SHIP5TAT-1 THEN 
IF MISSLX>XSHIP+9 AND 
MISSLX <XSHIP + 15 
THEN SHIPSTAT=2 C0LR4=14 
SC0RE=-+20 
UPDATEC) 

FI 

RETURN 

FI 

IF SHIPSTAT = 2 THEN 
IF MISSLX>XSHIP+31 AND 
MISSLX<XSHIP+37 
THEN SHIPSTAT = 3 C0LR4=14 
SC0RE--+20 
UPDATEC) 

FI 

RETURN 

FI 

IF MIS5LX>XSHIP+20 AND 
MIS5LX <XSHIP + 26 THEN 
SHIPSTAT=0 SCORE — + 50 
C0LR4=14 SOUNDCl,C0LR4 LSH 4,8,4) 
SOUND C2,0,0,0) ERASESHIP C) 
UPDATEC) 

FI 

RETURN 

PROC SHIPFLY C) 

BYTE STCK=632 
SOUND C0,Y0,8,2) 

IF 5TCK=15 THEN RETURN FI 
X0=XO+HSTICKC0) LSH 1 
Y0=Y0+USTICKC0) LSH 1 
IF XO>190 THEN X0=19O FI 
IF X0<50 THEN X0-50 FI 
IF YO>170 THEN Y0=170 FI 
IF Y0 <50 THEN Y0 = 50 FI 
ADRES=PMADR CO)+Y0 
MOUEBLOCK CADRES,SHIPSHAPE,17) 

PMHPOSCO)-X0 
RETURN 

PROC MISSILEFIREC) 

BYTE TRIGGER=644,INDX,MASK 
IF TRIGGERS THEN RETURN FI 
;TRIGGER IS NOT 1, SO 
FOR INDX-0 TO 3 DO 


IF M5TATUSCINDX)=0 THEN 

MSTATUSCINDX)=1 MYCINDX)=Y0+6 
MYOLD CINDX)= MY CINDX) 

MX CINDX)=XO 

IF INDX=1 OR INDX=3 THEN 
MXCINDX)=X0+15 FI 
MXOLDCINDX)=MX CINDX) 
MASK=PM_MISMA5KCINDX)!$FF 
PLPTR CMY CINDX) ) -~y .MASK 
PMHPOS CINDX + 4)-MXCINDX) 

EXIT 

FI OD RETURN 

PROC MISSILEMOUE C) 

BYTE INDX,MASK,DELTA 
FOR INDX=0 TO 3 DO 
IF M5TATUSCINDX)-1 THEN 

PLPTRCMYCINDX))==&PM_MI5MASKCINDX) 

MY CINDX )= = -2 

MASK-PM_MI5MASK CINDX) !$FF 
IF MYOLDCINDX)-MYCINDX)>44 THEN 
MSTATUSCINDX)=0 SOUND C2,O,0,O) 

ELSE PLPTR CMY CINDX) ) ==XMA5K; REDRAW 
DELTA=CMYOLDCINDX)-MY CINDX))76 
IF INDX—0 OR INDX—2 THEN 
MX CINDX)=MXOLD CINDX)+DELTA 
ELSE MXCINDX)=MXOLDCINDX)-DELTA 
FI 

PMHPOS CINDX + 4)=MXCINDX) 

SOUNDC2,DELTA LSH 2,10,4) 

TESTHIT CINDX) 

FI 

FI OD RETURN 
PROC SHIPDRAWC) 

BYTE TIME-20 

IF SHIPSTAT<>O OR FATE<250 
THEN RETURN FI 
SHIPST AT = 1 

COLR0-14 C0LR1=14 C0LR2=14 C0LR4=14 
SHIPX=RANDC24)+2 SHIPY^RANDC30)+2 
FASTDRAWCSHIP,10,10,SHIPX,SHIPY) 

TIME-0 DO SOUNDC1,100,8,12-TIME RSH 1) 
IF TIME=4 OR TIMERS OR TIME=12 THEN 
SHIPFLY C) MISSILEMOUE C) 

FI 

UNTIL TIME-16 OD 
WHILE C0LR4> 0 

DO C0LR4---1 C0LR2=RANDC250) 

COLR0=RANDC25O) COLRl=RANDC250) 
TIME=0 DO UNTIL TIME=2 OD 
SOUND Cl,C0LR4 LSH 4,8,4) 

SHIPFLYC) MISSILEMOUEC) 

OD 

C0LR0=44 COLR1=102 C0LR2=52 
SOUND Cl,0,O,0) 

RETURN 

PROC SHIPMOUEC) 

IF SHIPSTAT-0 THEN RETURN FI 
SHIPX=-+5X SHIPY--+SY 
IF SHIPX <2 OR SHIPX> 28 THEN SX=-SX 
ELSEIF FATE)C255-LUL) THEN SX=~SX FI 
IF SHIPY <2 OR SHIPY> 55 THEN SY=-5Y 
ELSEIF FATE<LUL THEN 5Y=~SY FI 
IF SHIPST AT-1 THEN 
FASTDRAWCSHIP,10,10,SHIPX,5HIPY) 

ELSEIF SHIPST AT-2 THEN 
FASTDRAWCNOLEFT,10,10,SHIPX,SHIPY) 

ELSE FASTDRAWCNOENG,10,10,SHIPX,SHIPY) 
FI 

RETURN 

PROC DARKENC) 

IF C0LR4=0 THEN RETURN FI 
COLR4---1 SOUND Cl,C0LR4 LSH 4,8,4) 

IF C0LR4-0 THEN SOUND Cl,0,6,O) FI 
RETURN 


ATARI 8-BIT EXTRA 


ANALOG COMPUTING 35 



^ Surface Run continued 


PROC SHOOTBACKO 
BYTE LLP 

IF SHIPSTAT=0 OR FATE)LUL1 
THEN RETURN FI 
FOR LLP = i TO 3 DO 
IF BSTAT(LLP)=0 THEN 
BSTAT (LLP)=1 

BX(LLP)=(SHIPX L5H 2)+68 
BY(LLP)=(SHIPY LSH l)+34 
PCOLR(LLP)=RAHD(15) LSH 4;RND COLOR 
PCOLR(LLP)==+10; LIGHTEN COLOR 
ADRE5B=PMADR(LLP)+BY(LLP) 
M0UEBL0CK(ADRESB,BALL1,16) 
PMHPOS(LLP)=BX(LLP) 

EXIT 

FI 

OD 

RETURN 

PROC ALIGNO 
BYTE LLL,CLUNK=C0) 

IF LUL1> 50 THEN CLUNK=1 

ELSEIF LUL1)150 THEN CLUNK=2 
FI 

FOR LLL=1 TO 3 DO 
IF BSTAT (LLL)<>0 THEN 
IF BX(LLL)>(X0+4) THEN 
BXDR(LLL)=-2-CLUNK 
ELSEIF BX(LLL)<(X0+4) THEN 
BXDR(LLL)=2+CLUNK 
ELSE BXDR(LLL)=0 
FI 

IF BY(LLL)>(YO+4) THEN 
BYDR (LLL)--2-CLUNK 
ELSEIF BY (LLL)< (YO + 4) THEN 
BYDR(LLL)=2+CLUNK 
ELSE BYDR(LLL)=0 
FI 
FI 
OD 

RETURN 

PROC BALLMOUEO 
BYTE LLP 

FOR LLP = 0 TO 3 DO 
IF BSTAT (LLP)<>0 THEN 
IF BSTAT (LLP)=1 THEN BSTAT(LLP)=2 
ELSE BSTAT(LLP)=1 
FI 

BX(LLP)==+BXDR(LLP) 
BY(LLP)==+BYDR(LLP) 

ADRESB = f>MADR(LLP)+BY(LLP) 

IF BX(LLP)<50 OR BX(LLP)>190 OR 
BY(LLP)<34 OR BY(LLP)>182 THEN 
BSTAT(LLP)-0 

HOUEBLOCK(ADRESB,BLANK,16) 

FI 

PMHP05(LLP)=BX(LLP) 

IF BSTAT (LLP)= 1 THEN 

M0UEBL0CK(ADRESB,BALLi,16) 

ELSEIF BSTAT(LLP)= 2 THEN 
HODEBLOCK(ADRE5B,BALL2,16) 

FI 

FI 

OD 

RETURH 

PROC HITBALLO 

BYTE ARRAY MISCOL(3)=$D008 

BYTE IND,PLY,DUMMI 

FOR IND=0 TO 3 DO 

IF MISCOL(IND)>1 THEN M5TATUS(IND)=0 
PLPTR(MY(IND))==&PM_MISMA5K(IND) 
DUMMI=MISCOL(IND) 

IF (DUMMI&2)= 2 THEN PLY=i 

ELSEIF (DUMMI&4)=4 THEN PLY=2 
ELSE PLY=3 
FI 

ADRESB=PMADR(PLY)+BY(PLY) 

MOUEBLOCK(ADRE5B,BLANK,16) 

COLR4=10 SOUND(1,C0LR4 LSH 4,8,4) 
BSTAT (PLY)=0 PMHITCLR = 1 
SCORE = = + 10 UPDATEO 
FI 


OD RETURN 

PROC ENDGAMEO 
BYTE TRIGGER=644 
ERA5ESHIP() 

TXTROW-2 TXTCOL-2 

PRINT("GAME ODER..PRESS TO PLAY") 

PRINT (" AGAIN") 

DO UNTIL TRIGGER=0 OD 

NUMSHIP=4 SCORE=0 TXTR0M=2 TXTCOL=2 

LUL=10 LUL1=10 SHIPSTAT=0 

PRINK" ") 

PRINT(" ") 

TXTROW=l TXTCOL-12 PRINTC ") 

UPDATEO UPD ATESHIP () 

RETURN 

PROC BLOWNAHAYO 

BYTE ARRAY SHIPH (0)=53260 

BYTE LQ,TIMER=20 

IF SHIPH (0)=0 THEN RETURN FI 

PM_HIDTH(0)=0 

FOR LO=0 TO 3 DO 

IF MSTATUS(LO)=1 THEN M5TATUS(LQ)=0 
PLPTR(MY (LQ))==&PM_MISMASK(LO) 

SOUND (2,0,0,0) 

FI 

PMCLEAR(LQ) BSTAT (LQ)=1 BX(LQ)=XO 
BY (LQ)=Y0 ADRESB=PMADR(LQ)+BY(LQ) 
MODEBLOCK(ADRE5B,BALL1,16) 

PMHP05(LQ)=BX(LQ) 

PC0LR(LQ)=RAND(15) LSH 4+10 
OD 

C0LR4=14 S0UND(1,C0LR4 LSH 4,8,8) 

BXDR(0)=2 BYDR (0)=2 BXDR(1)=2 
BYDR (1)=-2 BXDR (2)=-2 BYDR(2)=2 
BXDR (3)=-2 BYDR(3)=-2 
DO 

IF BSTAT (0)=0 AND BSTAT(1)=0 AND 
BSTAT (2)=0 AND B5TAT(3)=0 THEN 
EXIT 
FI 

BALLMOUEO 

TIMER=0 DO UNTIL TIMER=3 OD 
OD 

COLR4=0 

S0UND(1,0,0,0) PMHITCLR=1 NUM5HIP==-1 
UPDATESHIP () 

IF NUMSHIP=0 THEN ENDGAMEO FI 
X0=120 Y0=170 

PM_WIDTH(0)=1 PCOLR (0)=170 
ADRES=PMADR(0)+Y0 
MOUEBLOCK(ADRES,SHIPSHAPE,17) 

PMHPOS(0)=X0 
RETURN 

PROC MAINO 

BYTE XX,COUNT,TIMER=20 
5ND1=3 5ND2=0 
DLSETUP() 

PMGRAPHICS() 

FOR XX=0 TO 7 DO PMCLEAR(XX) OD 
Y0=120 X0=120 PCOLR(0)=170 PCLRM=14 
ADRE5=PMADR(0)+Y0 PLPTR=PMADR(4) 
MOUEBLOCK(ADRES,SHIPSHAPE,17) 

PMHP05(0)=X0 PM_WIDTH(0)=1 
WINDOW() 

CDTMA2=R0TATE 

CDTMU2=2 

DO 

SHIPDRAWO 

SHIPMOUE () SHOOTBACKO 
ALIGNO BALLMOUEO 
FOR C0UNT=1 TO 3 
DO 

TIMER=0 DO UNTIL TIMER=1 OD 
SHIPFLYO MIS5ILEFIRE () MISSILEMOUE () 
DARKENO HITBALLO BLOWNAWAYO 
OD 
OD 

RETURN 

• 
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48K Cassette or Disk 


GAME 






by Mark Comeau 


Mission #2, should you choose to accept it, is to stop 
the production of the enemy’s killer satellites. They’re be¬ 
ing manufactured at this moment, in the secret enemy base 
in the Commodore mountains. If production doesn’t stop, 
they’ll be launched—and demolish the Earth for sure. The 
coordinates for the base are listed in your secret agent 
handbook. Land your Spy Plane immediately and get to 
work! 

On your last mission, the enemy had somehow managed 
to photocopy plans to your top-secret satellites. Cases and 
cases of the plans will be found now in the caverns of the 
base. Confiscate as many as you can, but don’t let that deter 
you from your main mission. 

Once inside the caverns, look for some small portals. 
Inside are the factories producing the enemy satellites. 
Drop a radio-controlled robot into them and maneuver it 
with your hand-held spy computer. To disable the factory’s 
machines, just unplug them and turn off the water sup¬ 
ply. After all the machines have been sabotaged, an exit 
will appear in the lower right-hand corner. 

As part of their protective system, the factories have 
tubes which emit radioactive mist. The mist is dispersed 
in straight lines, at irregular intervals. The caverns also 
contain mist portals, but, here, once the mist hits the 
ground it spreads out a little. The mist causes death on 
contact. Avoid it at all costs! 


In the caverns are empty tubes which you can use to 
travel up and down. Do not travel off the top of the tubes. 

On the first level of Spy Plane II, you can use your spy 
jump boots. These will let you “fall” down to lower sur¬ 
faces without injury. After the first level, though, the boots 
will become useless. Any fall will result in death. 

There are two factories on each cavern screen. When 
you’ve sabotaged the first, it will blow up and disappear. 
Both of the factories must be destroyed before an exit 
appears. 

Each level of the game has four cavern screens, all of 
which must be completed before the satellites are pro¬ 
duced. On the first level, there’s a 500-second time limit. 
In every succeeding level, the time it takes to produce 
satellites is decreased by 50 seconds. If the factories are 
not destroyed and your exit accomplished in time, you’ll 
see the satellites launch and destroy the Earth. When the 
Earth is destroyed, you lose a life. 

The fate of the world rests heavily upon your shoulders. 
You have only four lives in which to complete your mis¬ 
sion, so live them with care. 

Running and playing the game. 

Type in Listing 1 exactly as it appears. Be careful with 
the data statements. 

Type RUN, and the screen will go blank for about 30 
seconds. Then the Spy Plane will land, and your man will 
get out. After that, the familiar Spy Plane logo will ap¬ 
pear. Press the fire button to start the game. 
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After you press the fire button, the score display will 
appear. Press the fire button again to get to the first screen. 
During the score display, if you press START, the computer 
will end the game. 

On the first screen, your man will automatically climb 
out of the plane and down a tube. Cases of plans (worth 
10 points) are located all around him. Each screen is worth 
100 points. The destruction of a factory will win you 100 
points, while the sabotage of each plug or faucet inside 
is good for 20 points. 

Programming tips. 

When the program is run, it turns the screen display 
off, reading and initializing all the necessary stuff. “Why 
in the world would you want to turn the Atari’s superb 
graphics display off?” you may ask. Because the initiali¬ 
zation process takes a while—anything that can make it 
speed up is A-OK. When the screen is turned off, the com¬ 
puter is freed from graphics—everything else speeds up. 

To do this, just POKE 559,0. I even use it to turn the 
screen off when displaying screens. Instead of a flicker, 
you get a split-second of black, then a quick display. 

If you look at the Spy Plane II program, you'll see that 
every number from 0 to 20 has a C in front of it. This is 
done to conserve memory. The computer has an easier time 
handling variables than numbers. I saved 2263 bytes by 
using constants on this program. The variables are defined 
with an unusually large read-data combination. Look at 
Lines 2510 and 2520. 

With the kind of character-set/player-missile graphics 
used in this game, everything is displayed in 8 * 8 squares, 
in order to make things manageable enough for BASIC. 
But you’ll notice that the man moves around pretty 
smoothly. If moved in steps of 8, he would skip around 
and wouldn’t look too good. Instead, he moves in steps 
of 2 until he gets to the 8th pixel, because he has to match 
the character set graphics display. 

The trick is to set two variables to the joystick position 
to determine the direction of the player. Each direction has 
a variable X- and Y-step, which is either 2 or -2. A 
FOR. . . NEXT loop from 1 to 4 displays the player/mis¬ 
sile character each time, adding the X- and Y-step values. 
Whoa! Did you catch all that? 

Each direction the spy may go must have a bit-mapped 
graphic stored in a string array. This is so that the play¬ 
er/missile graphics routine can display it nice and quick¬ 
ly. The only drawback is that each graphic has to have a 
different string. “But that’s a little too slow for BASIC,” 
you say. Fear not. 

The way to get around it is to put all your player/mis¬ 
sile graphics into one string. Use a variable for the string 
pointer of your intended graphic. It goes in steps of 8, be¬ 
cause each character should take up 8 bytes. The pointer 
is set to whichever graphic you want. All of the data for 
your player/missile can be read in with one FOR. . . NEXT 
loop, as in Line 2580. 

If you were to have an IF. . .THEN statement for every 
joystick position, your player/missile wouldn’t go very fast 
at all. I use what’s called Boolean algebra. What the heck 
is that? Well, it’s really simple. Here’s an example. . . 


100 S=STICK(0):SX=(S=7 AND X<456)*2-(S = 11 AND X>304)*2 

If the conditions inside the parentheses are met (S=7 
and X<456), then the value will be a 1. If the conditions 
are not met, the value will be a 0. If the stick position is 
a 7 and X is not too high, then it will be multiplied by 
2. This particular expression will give a result of either 
a 2 or -2. 

The other Boolean expression used is in Line 110. It’s 
only purpose is to determine what the pointer for the play¬ 
er/missile array will be. 

Program breakdown. 

Lines 10-70 —• A little credit, please!. 

Line 80 — Branch to initialization. 

Lines 90-230 — Main loop. Movement, etc. 

Lines 240-270 — Vaporize case. Make it blow up! 

Lines 280-400 — Fall down and/or figure out if it is a 
fatal fall. 

Lines 410-430 — Death. Figure out if it is the last man. 

Lines 440-510 — Emit radiation. 

Lines 520-530 — Next screen and see if it is the last. 

Lines 540-700 — Display score, then display screen and 
go to main loop. 

Lines 710-770 — Walk out of plane. 

Lines 780-940 — Small init for factory. 

Lines 950-1020 — Main loop for factory. 

Lines 1030-1180 — Display factory radiation. 

Lines 1190-1200 — Check to see if RC robot is stepping 
on something harmful. 

Lines 1210-1250 — Make RC robot die. 

Lines 1260-1290 — Unplug machines. 

Lines 1300-1330 — Go back to main loop. 

Lines 1340-1510 — Launch satellites and destroy Earth. 

Lines 1520-2070 — PRINT #6 values for your graph¬ 
ics screens. 

Lines 2080-2230 — Display title screen. 

Lines 2240-2350 — Land the Spy Plane, and then dis¬ 
play the logo. 

Lines 2360-2470 — GAME OVER message with high 
score and last score. 

Lines 2480-2520 — Start initializing. 

Lines 2530-2560 — P/M mover — by Tom Hudson. 

Lines 2570-2590 — Set up data for radiation and exits. 

Lines 2600-2660 — Character set initializer — created 
by Steven Pogatch. 

Lines 2670-2690 — Character set init DATA. 

Lines 2700-3010 — Character set graphics DATA. 

Lines 3020-3060 — P/M mover DATA. 

Lines 3070-3120 — P/M graphics DATA. 

Lines 3130-3180 — Radiation DATA. 

Lines 3190-3200 — Exit DATA. 

Okay, the game’s up. I hope you get hours of fun from 

Spy Plane II. H 

Mark Comeau is a self-taught BASIC programmer from 
Piscataway, New Jersey. This is his fourth program pub¬ 
lished by ANALOG Computing. The original Spy Plane 
appeared in issue 21. His interests include graffiti art, rock 
&• roll music. Atari and video games. 
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Variables used. 

A. 

.For P/M mover. 

C. 

.ATASCII value of the character that the player is on. 

D . 

.ATASCII value of the character the player is 


stepping on. 

DF. 

.Flag for death fall. 

GTM 

.Time limit. 

GX. 

.GR. 2 horizontal position of player. 

GY. 

.GR. 2 verticle position of player. 

IT. 

.For READing IT. 

L(T) 

.AN the DATA for the radiation. 

MEN . . . 

.Number of men left. 

MN$ .... 

.Graphics data for player/missile. 

PMD 

.Position of MN$ in memory. 

S. 

.STICK value. 

SC. 

.Current screen number. 

SCO. 

.Score. 

T. 

.Counter for radiation. 

TM. 

.Time left to complete screen. 

WX . 

.Horizontal position of factory portal. 

X. 

.Horizontal position of player. 

Y. 

.Vertical position of player. 


The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 


WE 10 
NB 20 
UH 30 
HR 40 
HX SO 
CU 60 
MK 70 REM 
KT 80 GOTO 
YU 90 REM 


REM 

REM 

REM 

REM 

REM 

REM 


I 


Listing 1. 
BASIC listing. 


5PY PLANE 
II 


BY : 
FOR: 


Mark Coneau 


A.N.A.L.O.G 


AND X<4563*02 


2510 

IMAIN LOOPBH 

AG 1O0 S=5TICK£C03:SX=£S=C7 
-£S=C11 AND X>3043*02 
MF HO PS=£S=C73*C0+£S=C113*C8+£S=C153*PS 
YS 120 5Y=C0:IF 0 = 230 THEN SY=£S=C13 AND 
Y <104 AND D <> 71 AND D<>72)*02-C5 = C14 A 
ND Y>0i63*C2:PS=C16 
WI 130 FOR IT-C1 TO C4 

OA 140 X-X+5X :Y=Y+SY:A=USR £MOUE, CO, PMB, PM 
D+PS,X,Y,083 
PP 150 NEXT IT 

EG 160 TM=TM+Cl:GX=£X-3043/C8:GY=£Y-C163/ 
C8:LOCATE GX,GY,C 
NI 170 IF 0=217 THEN GOSUB 250 
E:5 180 IF 0=71 OR 0=72 THEN 370 
BM 190 IF 0=122 THEN 530 
HL 20O IF 0=105 THEN 790 


HY 

PG 

WF 

NS 

KY 


WI 340 A=USR£MOUE,C0,PMB,PMD+C16,X,Y,C83 
00 350 NEXT Y:Y=Y-Cl:SOUND 00,CO,CO,00:SO 
UND 01,00,00,00 
LU 360 GOTO 100 
ZM 370 FOR Y=Y TO 134 

WO 380 A=USR£MOUE,C0,PMB,PMD+C16,X,Y,C8J 
OX 390 SOUND C0,Y+121,C14,C14 
KB 40O NEXT Y:SOUND 00,00,00,00 
JC 418 REM ■■DEATHHI 

420 WX=-C1:WX2=-C1:TM=C0:MEN=MEN-C1:IF 
MEN<00 THEN 2370 
430 GOTO 55 0 

440 REM ■■FIRE LAZERHH 
450 IF TM>GTM THEN 1350 

460 T= £CINT £RND £003*L£SC3 33*033 +L CSC + C 
4) 

EG 470 LX=L£T3:LY=L£T+C13:LN=L£T+C23:T=C0 
SZ 480 COLOR 107:GOSUB 510:SOUND 00,02,04 
,014 

HN 490 LOCATE GX,GY,C:IF 0=107 THEN 370 
TI 500 COLOR 020+012:GOSUB 510:SOUND C0,C 
0,00,00:T=CO:RETURN 

510 PLOT LX,LY-LN:DRAWTO LX,LY:DRAWTO 
LX-C1,LY :DR AHTO LX+C1, LY: RETURN 
520 REM ■■NEXT SCREENHH 
530 TM=C0:WX=-Ci:WX2=-C1:SC=SC+C1:IF S 
0=05 THEN SC=Cl:SCO=SCO+100:DF=Cl:FL=C 
l:GTM=GTM-50!GOSUB 550:G0T0 720 
CQ 540 REM 1HG0T0 SOREEN^H 
IL 550 POKE 77,00:? 006 ; CHRS£1253:P05ITI0 
N 07,03!? ttC6 ; SCO:COLOR 108:PL0T 07,05 
IDRAWTO 07+MEN,05:POSITION 00,00 
560 A = USR fMOUE,CO,PMB,PMD,CO,CO,003 
? »C6j"NNNNNNN = >?G0NNNNNNNN ,, j 
? »C6;"UUUUUUUUUTUUUUUUUUUU"; 
POSITION “ 

? ttcej"!; 


MS 

FT 

UN 


EP 

FE 

FU 

ZO 


570 

580 

590 


? ttC6; "| 


C0 + C10 




UT 

218 LOCATE GX,GY+Cl,D:IF D=32 AND C<>2 

KT 

80O ? «C6 


30 THEN 290 

TR 

810 ? «C6 

WY 

220 T=T + RND£C03*02:IF T>C10 THEN GOSUB 

AM 

820 ? «C6 


450 

OF 

838 ? ttC6 

LN 

230 GOTO 100 

NA 

840 ? «C6 

HX 

240 REM ■1UAP0RIZE CASEB1 

PP 

850 ? ttC6 

WF 

250 SCO=SCO+C10:COLOR 203:PL0T GX,GY 

PR 

860 ? «C6 

YR 

260 FOR IT=C14 TO 00 STEP -CliSOUND 00 

HO 

870 ? »C6 


,IT,C0,IT:NEXT IT 

OP 

880 ? HC6 

ZC 

270 COLOR 32:PLOT GX,GY:SOUND 00,08,00 

BA 

890 ? »C6 


,CO:RETURN 

TO 

900 ? ttC6 

ZA 

280 REM ■■FALL^H 

KW 

910 ? »C6 


PP 600 
OG 610 

HI 620 IF PEEK£532793=C6 THEN 2370 
SB 630 POKE 70S,RND £003*255:POKE 710,RND£ 
003 #255:IF STRIG £003 =01 THEN 620 
OH 640 POKE 708,52 SPOKE ?10,164:POKE 559, 
CO:POSITION C0,C0:ON SC GOSUB 1538,167 
0,1810,1950:COLOR 32 
DK 650 IF WX>-C1 THEN PLOT WX, WY 
WC 660 IF WX2>-01 THEN PLOT WX,WY 
GN 670 HWX=WX:HWX2=WX2 

OT 680 IF WX<C0 OR WX2<C0 THEN PLOT Df£SC 
-013*023 ,D £ fSC-013#02 + 013 
AW 690 IF SF=C1 THEN SF=CO:RETURN 
PS 700 POKE 559,46:GOTO 100 
SS 710 REM I^HWALK OUT OF PLANEr 
UO 728 POKE 559,46:Y=32:F0R X=368 TO 
KB 730 A = U S R £ MO U E,0 0,P MB,P MD,X,Y,C83 
LZ 748 NEXT X 
NB 758 FOR Y=32 TO 55 

WO 760 A=USR£MOUE,CO,PMB,PMD+C16,X,Y,C83 
IG 770 NEXT Y: GOTO 180 
KF 780 REM HFACTORYHi 
WC 790 POKE 559,C0:PO5ITION 00,08 
eeeeeeeeeeeeeeeeeeee' 
e 


383 


RX 290 IF DF=C1 THEN 370 SX 

IK 300 FOR IT=GY TO C11:L0CATE GX,IT,C RE 

AM 310 IF C<>32 AND C<>217 THEN 330 
MR 320 NEXT ITlGOTO 370 PL 

PW 330 IT=IT - C1:FOR Y=Y TO IT*C8+C16:SOUN BD 

D C0,Y,C14,O4:SOUND Cl,Y+Cl,014,04 ZR 



eeeeeeeeeeeeeeeeeeee' 

920 POKE 559,46 

930 FOR 1=00 TO C3:S0UND I,£RND£C03#05 

3+010,08,C2INEXT I 

940 RX=4 48: RY=96:P=C0:IT=C8 

958 REM ■■RC ROBOT MOUEMENTHH 

960 S = 5TICK £003 :RX = RX+£S = C73*08-£S = C11 
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^ Spy Plane II continued 


AO 
5 A 

OV 

OP 

SW 


TB 

SK 

PX 

EL 

H6 

KV 

0G 

SB 

PY 

TW 

GD 

QE 

ZK 

WU 

NW 

JR 

TW 

LK 

SG 

AM 

BN 

AN 


UA 

IF 


OR 

DB 

DH 

BE 

GT 

HJ 

GC 


ON 

PX 


JB 

NS 

KM 

10 

OB 

UN 

BO 

GC 


)*C8:RY=RY+£5=013)*08-£S=C14)*C8 
570 A-USR £MOVE,C0,PMB,PMD + 24,RIt,RY,C8) 
980 GX=£RX-304)/C8:GY= £RY-C16) ,'08 : LOCA 
TE GX,GY,C 

990 IF 0 = 105 THEN 1310 

1000 IF 0=243 THEN COLOR 239:PL0T GX,G 
YiGOSUB 1270 

1010 IF 0=248 THEN COLOR 237:PL0T GX,G 
Y:SOUND IT,C0,C0,C0:IT=IT+C1:GOSUB 127 
0 

1O20 TM=TM+C1:IF C<>3 2 T HEN 1200 
1030 REM ■■RADIATIONHi 
1040 B=B+RND(CO)#01:IF B<C10 THEN 960 
105O B=C0:T=INT£RND£C0)*C6)+Ci:SOUND C 
0,014,02,014 

I860 IF T=C1 THEN LX=C2:MX=C18:LY=C5:M 

Y = C5 

107O IF T=C2 THEN LX=C2:MX=C18:LY=C6:M 

Y = C6 


108O IF T=C3 THEN B=C1:LX=C3 

109O IF T=C4 THEN B=C1:LX=C6 

1100 IF T=C5 THEN B=C1:LX=C12 

1110 IF T=C6 THEN B=C1:LX=C15 

1120 COLOR 107:IF B=C0 THEN PLOT LX,LY 

iDRAWTO MX,MY 

1130 IF B=C1 THEN PLOT LX,C5:DRAWT0 LX 
,06:DRAWT0 LX + C1,06:DRAWT0 LX + C1,C5 
1140 LOCATE GX,GY,0:IF 0=107 THEN 1220 
1150 COLOR 32:IF B=CO THEN PLOT LX,LY: 
DRAWTO MX,MY 

1160 IF B=1 THEN PLOT LX,C5:DRAWT0 LX, 

C6:DRAWT0 LX+C1,C6:DRAWT0 LX+C1,C5 

1170 SOUND CO,C0,C0,C0:IF IT=CO THEN S 

OUND C0,C4,C8,C2 

1180 GOTO 960 

1190 REM HiDEATH?Hi 

1200 IF 0=243 OR 0=248 OR 0=237 OR 0=2 
39 OR 0=242 THEN 960 
1210 REM ■■DEATH^H 

1220 FOR IT=Ci TO C3:S0UND IT,00,CO,CO 


: NEXT IT:SF = CO 

1230 FOR IT=C8 TO C0 STEP -1:P0KE 712, 
RND £00)#255:POKE 767,RND COO)#255:SOUND 
00,RND CC0)#255,04,014 
1240 A=U5R£MOVE,C0,PMB,PMD+24,RX,RY+C8 
-IT,IT) 

1250 NEXT IT:SOUND CO,CO,CO,CO:POKE 71 
2,CO:POKE 707,C14:WX=-C1:WX2=-C1:GOTO 
420 

1260 REM ■■PLUGS OR FAUOETSH 

1270 FOR V = C0 TO C10:SOUND 00,0,00,0+0 

4:NEXT ViSOUND 00,00,00,00 

1280 SCO=SCO+C20:P=P+C1:IF P=C8 THEN C 

OLOR 105IPLOT 018,010 

1290 RETU RN 

13O0 REM ■■GO BACKBH 
1310 RX=X:RY=Y 

1320 X=RX:Y=RY:WX2=WX:WY2=WY:5F=C1:G05 
UB 550:X=RX:Y=RY:WX=CX-304)/C8:WY=(Y-C 
16)/C8 


1330 COLOR 217:PLOT WX,WY:POKE 559,46: 

500=500+100:GOTO 10O 

1340 REM IHDESTROY EARTH** 

1350 ? «C6; "li" : POSITION 00,09 
1360 ? 8C6;"B AB 

1370 ? 8C6;"CB AB ABABACCBAB"; 

1380 ? 8C6;"CCBACCBABACCCCCCCCCC"j 
1390 A=USRCMOOE,00,PMB,PMD,06,00,00) 
14O0 FOR IT=CO TO C15:50UND C0,RNDCC0) 
#255,08,IT 

1410 FOR X=2O0 TO 10O STEP -ClGlSOUND 

C1,X,C14,IT:NEXT X 

1420 NEXT IT:SOUND 01,00,00,00 

1430 FOR IT=CO TO 019:X=RND£00)*019:CO 

LOR 107:PLOT X,C9:PL0T X,C8 

1440 FOR Y=C8 TO CO STEP -C1:C0L0R 240 

!PLOT X,Y:COLOR 32:PLOT X,Y+Cl:SOUND 0 

0,Y+04,CO,Y+04 


MM 

GO 

JY 


5P 

HJ 


EZ 

CP 


1450 NEXT Y:NEXT IT 

1460 FOR IT=C0 TO 50:X=RND£00)#019:SOU 
ND CO,C0,C0,C0:LOCATE X,CO,C 
1470 IF 0=240 THEN SOUND 00,09,04,014: 
COLOR 107:PLOT X,C1:DRAWT0 X,C11:C0L0R 
32:PLOT X,01:DRAWT0 X,Cli 
1480 NEXT IT 

1490 SOUND 00,00,00,00:FOR 1=014 TO CO 
STEP -C1:X = RND CO0)*255 SPOKE 712,X:P0K 
E 710,I:SOUND 00,X,08,014 
1508 NEXT I 

1510 POKE 712,00:SOUND 00,CO,CO,CO:GOT 
0 420 

1520 REM HiSCREEN **!■■ 


PP 
DM 1530 
1540 
1550 
1560 


EP 

XK 

MU 


GY 1570 
EY 1580 
ML 1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 


NB 

EG 

ZX 

UM 

GD 

TK 

GY 

DP 


TO 1680 


XJ 

MB 

TD 

NK 

KZ 


1690 
1700 
1710 
1720 
1730 
HW 1740 
LE 1750 
FX 1760 
1770 
1780 


RR 

UH 

XT 

RF 

JO 

XG 

VP 

XA 

AX 

VP 

LD 

AK 

EG 

VT 

WN 

TA 

ZL 

SO 

AM 

HN 

PY 

XS 


8C6 
806 
BC6 
8C6 
8C6 
806 
8C6 
8C6 
8C6 
8C6 
806 
806 
X=384 
REM | 
? 006 
BC6 
806 
80 6 
80 6 
8C6 
8C6 
806 
806 
8C6 
806 
806 


1790 X=304 
1800 REM ■ 


1810 

1820 

1830 

1840 

1850 

I860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

I960 

1970 

1980 


OM 1990 


FY 

AV 

SE 

KO 

XV 

GK 

FP 

WP 

OQ 

UF 


JY 

SB 

PO 

XR 

KK 


2800 

2010 

2020 

2030 

2040 

2O50 

206O 

2070 

2080 

2090 


"B 

M CB AB 
"CCBACCBd 
"CCCCCCCeee 
"HGHGJHGHGH 


■■QlJ 

■*5 c 

" ii 

it ~ 


i 

GHG 

□ 


HJGHGHG 


ABAB A" 
00000600" 
ACCCCCCCC" 
000000000" 
JHGHGHGHGH" 
Q Q DQQ OG" 

DGHGHGHGHGJHGT 



HGHGH" 
Q □ H DC E a Qz" 
"GHGHGHGHGHGHG GHGHGH" 
Y=56:RETURN 
I5CREEN 

Q Q EZ 

HGJHG^ 

hghGgjhghghghghgh" 

U lC d □ 
hTghghjg 
hhg 

5j □ G 



"nbn^ui 

" Q STgh 

"CHItHT 


GHGHGHGHGH GHG 

GHGHQ 

0 Q D Q H zQ Q 
"HGHGHGHGHGHGHGHGHGHG* 
Y=C16!RETURN 
■SCREEN »3| 




"HGHGH GHGHGHGHGHGHGH 1 
Y=C16:RETU RN 
■SCREEN tt4|H 

□Trc 

GGGGGt 

□ [ 

GG GGGJG[ 

D _ 

GGGGG 

□ 

GGGGGG 

QiQ , 

GGJGGGl 

□ □ 

GGGGGGGGGGG 1 


BC6 
BC6 
006 
006 
»C6 
806 
806 
806 
806 
806 
80 6 
? 806 
X = 328 
REM 
? 806 
806 
806 
8C6 
806 
8C6 
806 
806 
8C6 
806 
806 j 

8C6;"GGGGGGGG 
X=31 2!Y =C16:RETURN 
REM ^BTITLE SCREENlH 
GRAPHICS C18:P0KE 559,C0:P0KE 756 
,PEEKC106)+C1:POKE 704,C14:POKE 708,00 
:POKE 709,015:POKE 71O,C0:POKE 711,52 
2100 ? 806;"NNNNNNN=>?GVNNNNNNNN"; 

2110 ? 806 J"UUUUUUUUUTUUUUUUUUUU"; 

2120 
2130 




? 806;" 
? 806;" 


k I t I w 

ttmT 


t+t+tmtmt 


2140 ? 806 J"NNNNNNN = >?GVNNNNNNNN 11 ; 
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IR 2150 ? 


VH 2160 

7 

806,• " 


T 

T 


T 

J 

JE 

>VJl 

a 

K 

I 


I 


- ’ 

HV 2178 

7 

806 ; " 

■ 




T 

s 

in 

W 

IE 

E 

r 

T 

! 


" " 

YJ 2180 

7 

806;" 

■ 

■ 

L 

- 







? 

■l 

v 

; 

■ i 

TV 2190 

7 

806 J " 

J 

■ 

1 

i 

1 

3 




E 


K 


1 

■ ■ 

ID 2200 

7 

806; " 

J 

■ 

a 

■ 

6 

1 

3 



" 

1 

■ 

a 

• ■ 

FD 2210 

7 

806;" 

■ 


■ 

1 

1 

4 

3 eeee 

2£ 



■ 


■ ■ 


XH 

FB 


227 


MV 

KT 

05 

QP 


JH 

OH 

RM 


TO 

KE 

OF 

WT 

UO 


2220 POKE 559,46:B=C10:Y=C0 
2230 IF 5TRIG (00)= 08 OR 5 = 0.1 THEN 
O 

2240 REM BBLANDlB 

2250 FOR 1 = 00 TO 33:B = B*0.91:Y = Y + B:A = U 
SR(MOVE,08,PMB,PMD+32,360,Y,C8) 

2260 SOUND 00,2*2.6,014,014:500X0 01,Y 
*2.6,014,014:SOUND 01,Y,08,014:NEXT I 
2270 COLOR 100IPLOT 07,CIO:A = USRtMOVE, 
C0,PMB,PMD,C0,C0,O0) 

ZL 2280 SOUND 01,CO,CO,CO:SOUND CO,CO,CO, 
CO 

2250 FOR I=CO TO 100:NEXT I 
2300 SOUND C0,100,C13,C14:5OUND CO,CO, 
00,00:COLOR 108:PLOT C8,C10 
2310 FOR 1=00 TO 014:POKE 708,I:P0KE 7 
10,I:FOR B=C0 TO 010:NEXT B:NEXT I:IT= 
00:5=8.1 

SU 2320 POKE 7 0 8,R N D(0)*2 5 5:P 0 K E 710,RND( 
00)*255 

2330 IF 5TRIG COO)=00 THEN 2440 
2340 IT = IT + C1:IF IT>250 AND SC>CO THEN 
2370 

2358 GOTO 2320 
2360 REM ^HGAME OVERBY 
2370 IF HlTSCO THEN HI=SCO 
KK 2380 A = USR(MOVE,CO, PMB,PMD,0 0,00,00) 

EM 2390 GRAPHICS 18:? 8C6;" BiTIMilUJTT 1 
:? 806:? 8C6;" score":? 806;" 

";SCO:? 8C6:? 8C6j" high score" 

ZP 240O ? 8C6;" ";HI:IT=C0:POKE 709, 

014:POKE 708,100 

DP 2418 IT=IT+C1:POKE 710,RND(CO)*255 
IN 2420 IF STRIG(C0)=C0 OR IT>100 THEN 20 
90 

OA 2430 
TF 2440 
LN 2450 
,70 

2460 SC=C1:WX=-C1:WX2=WX:SCO=C0:MEN=C3 
:DF=C0:5F=Ci:TM=C0:GTM=500 
IR 2470 GOSUB 550:G0T0 720 
RV 2480 REM ^BINITALIZATIONBH 
JG 2490 REM 

XR 2500 REM BHP/M MOVERBB 

2510 READ CO,Cl,02,03,04,05,06,07,08,0 
9,010,011,012,013,014,015,016,017,018, 

019 020 

2520 DATA 0,1,2,3,4,5,6,7,8,9,10,11,12 
,13,14,15,16,17,18,19,20 
SB 2530 DIM PMMOV$(100),MN$(40),XFR$(38), 
L(50) , D(07) 

HN 2540 POKE 559,00:POKE 712,52:MOVE=ADR[ 
PMMOV$):RESTORE 3030:FOR B=C1 TO 100:R 
EAD IT:PMMOV$(B)=CHR$(IT) :NEXT B 
GR 2550 FOR B=C1 TO 40:READ IT:MN$(B)=CHR 
$ (IT) :NEXT B 

2560 PMBASE=INT((PEEK(145)+03)704)*4:P 
OKE 54279,PMBASE:PMB=PMBASE*256:PMD=AD 
R (MN$) :PO KE 53277,03 
2570 REM BlDATA SETUPBB 
2580 RESTORE 3140:FOR B=C1 TO 50:READ 

it:lcb)=it:next b 

2590 FOR B = CO TO 07:READ IT:D (B)=IT:NE 
XT B 

260O REM ■■Char. Set INITB 
2610 POKE 712,190:POKE 106,PEEK (106)-0 
5 : ST ART=(PEEK(106)+01)*256:POKE 756,ST 
ART/256 

2620 RESTORE 2680:FOR B=C1 TO 38:READ 
IT:XFR$(B)=CHR$(IT):NEXT B 


GOTO 2410 

IF 5TRIG(CO)=00 THEN 2440 

POKE 708,52:POKE 710,164:P0KE 711 


UP 


LG 


EJ 


BW 


JO 

CO 

II 

JY 

MC 


TR 


PV 2630 A = USR(ADR (XFR$)):B=232:READ IT 

HO 2640 IF IT=-C1 THEN 2090 

WO 2650 FOR Y=CO TO C7:P0KE B+Y+START,IT: 

READ IT:NEXT Y 
XV 2660 B = B + C8:GOT0 2640 
VG 2670 REM ■■DATA + Char.Set ImtH 
OA 2680 DATA 104,169,0,133,203,133,205,16 
9,224,133,206,165,106,24,105,1,133,204 
,160,0,177,205,145,203,200,208 
TT 2690 DATA 249,230,204,230,206,165,206, 
201,228,208,237,96 

PC 2700 REM BBChar.Set SHAPE DATABi 
NU 2710 DATA 120,248,195,242,122,27,251,2 
43 

SC 2720 DATA 0,0,172,172,172,188,24,24 
UY 2738 DATA 128,108,109,109,121,97,97,97 
OK 2740 DATA 0,0,157,149,149,157,213,213 
EJ 2750 DATA 0,5,5,23,23,95,95,255 
FI 2768 DATA 0,64,192,208,248,250,254,255 
MV 2770 DATA 255,255,255,255,255,255,255, 
255 

WK 2780 DATA 0,0,0,192,118,63,112,192 
EZ 2790 DATA 255,17,255,136,255,17,255,13 
6 

AW 2800 DATA 129,129,195,195,129,129,195, 
195 

UL 2810 DATA 255,153,255,255,239,170,34,0 
TD 2820 DATA 255,153,255,255,221,213,69,0 
IE 2830 DATA O,O,24,60,52,60,60,60 
WO 2840 DATA 255,153,255,255,219,24,126,1 
26 

MI 2858 DATA 84,130,37,74,145,36,80,9 
VV 2860 DATA 24,52,24,58,92,24,100,70 
ZA 2870 DATA 96,32,112,255,255,112,0,0 
UE 2880 DATA 0,0,0,8,8,8,255,255 
NR 2890 DATA 0,56,252,63,63,252,56,0 
EP 2900 DATA 129,90,60,126,126,60,90,129 
BG 2910 DATA 126,126,24,219,255,255,153,2 
55 

ME 2920 DATA 0,8,0,255,255,0,0,8 
MH 2930 DATA 8,224,240,255,255,248,224,0 
JO 2940 DATA 8,126,126,36,36,36,126,126 
HP 2950 DATA 8,255,255,0,0,0,0,0 
AS 2960 DATA 0,8,215,214,215,246,119,119 
KR 2970 DATA 128,240,131,255,255,131,240, 
128 

YA 2980 DATA 48,32,112,255,255,112,0,0 
HU 2990 DATA 0,8,0,60,36,126,126,126 
DH 3000 DATA 60,231,66,195,66,195,66,195 
EJ 3010 DATA -1 

AY 302O REM BiDATA FOR P/M M0VERB1 
MA 3030 DATA 216,104,184,104,133,213,104, 
24,105,2,133,206,104,133,205,104,133,2 
84,104,133,203,104,104,133,208 
BM 3840 DATA 104,104,133,209,104,104,24,1 
01,289,133,207,166,213,240,16,165,205, 
24,105,128,133,205,165,206,105 
TM 305O DATA 0,133,286,202,208,240,160,0, 
162,8,196,209,144,19,196,207,176,15,13 
2,212,138,168,177,203,164 
UK 3060 DATA 212,145,205,232,169,0,248,4, 
169,0,145,205,200,192,128,208,224,166, 
213,165,208,157,0,208,96 
BD 3O70 REM ■■jP/M SHAPE DATABi 
VM 3880 DATA 24,52,24,58,92,24,100,70 
JO 3890 DATA 24,44,24,92,58,24,38,98 
SP 3100 DATA 24,36,24,60,90,24,36,102 
PH 3110 DATA 4,132,100,164,60,126,165,126 
OH 3120 DATA 8, 0,192,118,63,112,192,0 
NH 3130 REM BBlAZER DATABB 
EQ 3140 DATA 3,4,3,4,9,18,30,39 
RY 3150 DATA 2,18,1,4,7,2,16,8,1 
OA 3160 DATA 8,2,0,15,2,0,8,7,3,15,18,4 
CC 3170 DATA 8,5,3,12,10,6,17,6,4 
OW 3180 DATA 2, 10,6,4,10 ,0, 11,10,0,13,4,0 
OD 3190 REM BlEXIT DATABi 
UU 3200 DATA 19,10,10,10,5,9,15,0 
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MAGAZINE FOR ATARI' COMPUTER OWNERS 


THE #1 




ANALOG Computing, 

the #1 magazine for Atari |1||SM 

owners, brings you the Atari 
Users' Group on Delphi. We offer 
a message forum and an extensive 
database for up- or downloading—all from 
as little as 10 cents per minute from most U.S. 
cities, with no additional telephone charges and no 
extra charge for 1200 or 2400 bps. We’ll use the group’s 
conference feature for electronic meetings with well known 
Atarians and, of course, ANALOG staff. Bring on your toughest 
questions! 


Special rates 

Subscribers to ANALOG Computing or ST-Log may join without charge, and will receive 
a free lifetime Delphi membership, a Delphi Command Card and $5.00 of line-time credit 
applicable to their account. If you purchase the Delphi Handbook—the highly detailed 
manual on using the whole Delphi system—for $29.95, you will get an additional $20.00 of 
line-time credit. And you can subscribe to either ANALOG Computing or ST-Log directly, 
while on-line, to be eligible for these bonuses. 

How to connect 

First, select a data communications network: Telenet or Tymnet (in the U.S.), or 
DataPac (in Canada). In the Boston area, dial Delphi direct (617-576-0862). To 
determine your local Telenet number, dial 800-TELENET or 703-689-5700 (in 
Alaska, 907-264-7391). To obtain a Tymnet number, call 800-336-0149. If you have 
difficulty, call Delphi at 800-544-4005 (in Massachusetts, 617-491-3393). Current 
subscribers to ANALOG Computing or ST-Log should type JOINATARI when 
asked for user name. When asked for a password, type ANALOG. Those who 
wish to subscribe to either magazine online should, instead, type SUBSCRIBE at 
the password prompt, Once on Delphi, you’ll find our group on the “Groups. " 


Delphi, an on-line, full-service 
information network, offers news and 
sports from the Associated Press, 
weather reports, movie reviews, 
shopping services, travel 
information, and more. 
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by Paul T. Sprague 

Reversi is a strategy game written in Action!, a won¬ 
derful language from OSS. It’s not only very fast in com¬ 
pilation and execution, but also has the best editor I’ve 
ever seen. Action! makes it possible to write games such 
as this one in a high-level language—and yet still be able 
to realize the speed of assembly language (or very close 
to it). 

The rules of Reversi are quite easy to grasp. The board 
starts out with two white pieces and two black pieces in 
the center (as you’ll see when you start up the program). 
White moves first, then black, then white, etc.. . .until all 
squares are taken up, or neither player can move. 

A move consists of placing your piece on an empty 
square, thereby capturing all your opponent’s pieces be¬ 
tween your played piece and another piece of your color. 
Your pieces must be flanking those of the opponent, with 
no squares left empty between the pieces. 

These captures may take place horizontally, vertically, 
or diagonally. Also, you may capture pieces in more than 
one direction in a single move (even in all eight direc¬ 
tions). 

The pieces thus taken become your color; so ends your 
turn. 

One important point: you must capture at least one 
piece in order to make a legal move. If you can’t do this, 
you must pass and allow your opponent to move again. 


The winner is the player with the most pieces of their 
color on the board when the game ends. 

That’s all you need to know to play Reversi. The rules 
may seem quite simple, but, the more you play, the more 
strategies you find which are important for good play. 

The fine points. 

This Reversi program allows for three different modes 
of operation. A menu of these appears after the board has 
been drawn at the beginning of the game. 

The computer will ask you to choose a playing mode: 
1 for computer vs computer, 2 for human vs computer and 
3 for human vs human. Pressing either 1, 2, or 3 at this 
point will select the appropriate mode. Note that you don’t 
need to (nor should you) press RETURN after entering the 
number. 

In mode 1 (computer vs computer), you’ll be asked to 
select the strategy level for the white and black sides. The 
game will then begin, and you’ll see white and black ex¬ 
changing moves on-screen until the game’s over. This prob¬ 
ably isn’t really helpful in learning game strategies, but 
it is quite interesting to watch. 

Mode 2 (human vs computer) first prompts you to se¬ 
lect the color (white or black) you wish to play. To do this, 
simply press W for white or B for black. (The computer 
automatically plays the opposite color; it never argues— 
well, almost never.) Once colors are selected and you 
choose the skill level of the computer (more on this later), 
play begins. If you’re white, you’ll go first. Otherwise, the 
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computer will make the first move. Regardless of which 
color you pick, you’ll always use joystick 1 in this mode. 

Mode 3 (human vs human) allows you to play against 
a friend. In this mode, joystick 1 is the white player and 
joystick 2 is the black. 

To move, you must have a joystick plugged into the cor¬ 
rect port. The cursor appears on-screen and may be moved 
around via joystick. Place the cursor on the square to 
which you wish to move and press the fire button. If the 
square is a legal one for your move, a piece of your color 
will appear there, while all pieces which your move cap¬ 
tured will be changed by the computer. If you have no le¬ 
gal move, then you must forfeit your turn by pressing P 
(Pass) on the keyboard. 

At the end of each game, the computer will ask wheth¬ 
er or not you’d like to play another game. If you want to 
play again, press the Y key. This will cause the game board 
to be reinitialized and the starting menu to appear. 

As mentioned above, in each case where the computer 
plays one or both sides, it will ask you to select a skill level 
for each color. Here are the basic strategies for each level. 

Good: The second level, using the least strategy of 
the three, plays simply for capture of the most pieces. 
This is the way most beginners play. Soon, however, 
it becomes evident that more thought is necessary. 

Better: The second level combines the previous 
method with a knowledge of which squares are bet¬ 
ter to hold. The map of numbers you see at the be¬ 
ginning of the program (Listing 1) accomplishes this. 
However, in this level the map is static (it doesn’t 
change as the game progresses). 

Best: Our third level also uses the map, but has map 
updates in special cases, to account for possible 
changes in the strategic value of a square. Although, 
in play against humans, this level seems quite a bit 
better than the second, when the two levels are played 
head-to-head, the difference is not particularly evi¬ 
dent. The third level seems to win a majority of the 
time—but not a large majority, by any means. Another 
interesting change in this level’s strategy is that, for 
the first part of the game, it doesn’t try to capture the 
most pieces, but the least! This may seem backwards, 
but usually plays well. See if you can figure out why. 
Here’s a quick summary of each function and procedure 
in the program. 

SET_CHIP: Places a piece of the current color into 

the board array at XC,YC. 

TEST_SQR: Returns the value of the square XC,YC 

in the board array. 

PLACE_CHIP: Places a piece of the current color 

into the board array at XC,YC and draws it on the 
screen board. 

PSCORE: Switches inverse lettering to the current 
player color and prints the score. 

GET_LEVEL: Inputs strategy level. 

INITIALIZE: Sets up screen and array board, gets 
mode and levels, sets initial score and prints it. 

FLIPPER: If FLIP_ FLAG=0, then count the num¬ 
ber of chips captured by the move XC,YC. If FLIP_ 


FLAG=1, then actually capture the chips for the move 
XC,YC. 

UPDATE_VALUES: If a move is made to a corner, 

then make the squares adjacent to the move valuable. 

COMPUTER: Get a computer move. 

PLAYER: Get a human player move. 

MAKE_MOVE: As the name implies. . . 

MAIN: The primary game loop, with end-of-game 
checking. 

I hope that some of you will look at the code, figure out 
how the strategies work and try to come up with stronger 
ones. It really is fun to program a strategy, then pit it 
against one of the other strategies. If you come up with 
a really good one, or you have any questions or comments, 
please write to Reader Comment in the pages of ANALOG 
Computing. 

Good luck. Hope your life is filled with lots of Action! H 

Paul T. Sprague has his bachelor of science degree in 
Electrical Engineering and works as an Associate Engineer 
of Design and Development for Raytheon. He’s had his 
Atari 800 for seven years and Action! for two and one-half. 
They make a great pair! 


Listing 1. 
Action! listing. 


REVERSI in Action! 
Written by Paul T. 

Sprague 

[ A8 

CHECKSUM DATA 
A8 F6 7E 6B 8B 

CA 

8 A 

6D 

02 ID F0 F3 45 

A6 

9A 

CX 

El E3 44 20 99 

F5 

SO 

TO 

D8 B3 E9 B9 83 

64 

6D 

97 

61 DA 34 AD 0E 

84 

SB 

DA 

61 EB 3 




BYTE WHITE-SCORE,BLACK-SCORE, 

KEY=$2FC,CUR5OR=$2F0,ATTRACT=77, 
PRO-COLOR,0PP-C0L0R, 
M0VEX,M0VEY,M0VE,JOYX,JOYY 
BYTE ARRAY FRESH-BOARDC128J = 


[ 15 

0 

6 

6 

6 

6 

0 

15 

0 

0 

1 

1 

1 

1 

0 

0 

6 

1 

4 

2 

2 

4 

1 

6 

6 

1 

2 

0 

0 

2 

1 

6 

6 

1 

2 

0 

e 

2 

1 

6 

6 

1 

4 

2 

2 

4 

1 

6 

0 

0 

1 

1 

l 

1 

0 

0 

15 

0 

6 

6 

6 

6 

0 

15 

15 

0 

6 

6 

6 

6 

0 

15 

0 

0 

1 

1 

1 

1 

0 

0 

6 

1 

4 

2 

2 

4 

1 

6 

6 

1 

2 

0 

0 

2 

1 

6 

6 

1 

2 

0 

0 

2 

1 

6 

6 

1 

4 

2 

2 

4 

1 

6 

0 

0 

1 

1 

1 

1 

0 

0 

15 

0 

6 

6 

6 

6 

0 

15 

VALUE-BOARD (1281 , 

BOARDt64) . WBC2) , 

LEVELt25 

WHITE- 1 

1 ■GEESE" 

i 

BLACKS 



PROC SET—CHIP (BYTE XC,YC) 
BOARD CXC+YC*8)=PR0_C0L0R 
RETURN 


44 ANALOG COMPUTING 


ATARI 8-BIT EXTRA 




BYTE FUNC TEST—SQR(BYTE XC,YC) 

RETURN (BOARD(XC+YC*8)J 

PROC PLACE-CHIP (BYTE XC,YC) 

5ET_CHIP(XC,YC) 

XC-(XC+2)*4+17 YC=(YC+i)*4 

COLOR=PRO_COLOR+1 

PLOT(XC,YC) DRAWTO(XC+2,YC) 

DRAWTO (XC + 2,YC + 2) DRAWTO(XC,YC + 2) 
PLOT (XC,YC + 1) PLOT(XC + 1,YC + 1) 

RETURN 


PROC PSCOREO 
PRINT("tt") 

IF PRO_COLOR=l THEN_ 

PRINT (" IlliHH ") 

PRINTE("BLACK") 

ELSE 

PRINT(" WHITE ") 

PRINTE (" [QT;T>i^ ") 

FI 

PRINTF (" Y .B y.B Y.E" 

,WHITE-SCORE,BLACK-SCORE) 

RETURN 


PROC GET-LEVEL ( CHAR ARRAY 

COLOR—STR , BYTE TEMPI ) 
BYTE CHOICE 
DO 

PRINT ("ISPRE55 NUMBER TO SELECT") 
PRINTF (" ‘/.S LEVEL : XE", COLOR-STR) 
PRINTE (" [1 - GOOD") 

PRINTE(" 0 - BETTER") 

PRINT (" 0 - BEST") 

CHOICE=GETD (7) 

UNTIL (CHOICE)$30)AND(CH0ICE<$34) 
OD 

LEVEL(TEMPI)=CH0ICE-$30 
pftiipn 

PROC INITIALIZE () 

CHAR TEMP 

BYTE I,J,CHOICE 

JOYX-38 J0YY=17 KEY=255 

CLOSE(7) OPEN(7,"K:",4,0) 

GRAPHICS(5) SETC0L0R(4,12,5) 

SETCOLOR(2,O,0) SETCOLOR(1,O,12) 
SETCOLOR(0,O,8) 

FOR 1—0 TO 63 DO 
BOARD(I)— O 
OD 

FOR 1=0 TO 127 DO 

VALUE-BOARD(I)=FRESH_BOARD(I) 


OD 

C0L0R=1 

FOR 1=24 TO 56 STEP 4 DO 

PLOT (1,3) DRAWT0(1,35) 

PLOT (25,1-21) DRAWT 0(55,1 _ 21) 

OD 

PRO—C0L0R=1 

PLACE-CHIP(3,3) PLACE-CHIP (4,4) 
PRO—C0L0R=2 

PLACE-CHIP (3,4) PLACE-CHIP (4,3) 
DO 


vs. 


vs, 


PRINTE ("IMPRESS NUMBER TO SELECT:") 
PRINT (" Q - Computer vs. ") 

PRINTE ("Computer") 

PRINT(" 0 - Human 

PRINTE ("Computer") 

PRINT (" B - Human 
PRINT("Human ") 

CHOICE=GETD(7) 

UNTIL (CHOICE)$30)AND(CHOICE<$34) OD 
IF CH0ICE=$31 THEN 
WB(O)=2 WB(1) =2 

GET-LEVEL ( WHITE , O ) 

GET-LEVEL ( BLACK , 1 ) 

ELSEIF CH0ICE=$33 THEN 
WB (0)=0 WB(1)=1 


ELSE 

DO 

PRINT ("IS WHICH COLOR DO YOU") 
PRINTC WANT CW/BI ?") 

TEMP=GETD(7) 

UNTIL (TEMP= 1 W)OR(TEMP='B) OD 
IF TEMP= 1 W THEN 
WB(O)=0 WB(1)=2 
GET-LEVEL ( BLACK , 1 ) 

ELSE 

WB(0)=2 WB(1)=0 
GET-LEVEL ( WHITE , O ) 

FI 

FI 

PRINT ("IS") CURS0R = 1 
WHITE—SCORE=2 BLACK_SC0RE=2 
PRO—C0L0R=1 OPP—C0L0R=2 
P5C0RE () 

RETURN 

BYTE FUNC FLIPPER(BYTE XC,YC, 

FLIP-FLAG) 

BYTE TMPX,TMPY,FLIPS,COUNT,FLAG,TEMP 

INT I,J 

FLIPS=0 

IF TEST—SQR(XC,YC)=0 THEN 

FOR J=-l TO 1 DO FOR I=-l TO 1 DO 
IF (I«0)OR(JOO) THEN 
TMPX=XC TMPY=YC 
C0UNT=0 FLAG=0 
DO 

TMPX==+I TMPY==+J 
IF (TMPX<8)AND (TMPY<8) THEN 
TEMP=TE5T_5QR(TMPX,TMPY) 

IF TEMP=0 THEN 
FLAG=2 

ELSEIF TEMP=OPP—COLOR 
THEN 

C0UNT==+1 
ELSE 
FLAG=1 
FI 

ELSE FLAG=2 
FI 

UNTIL FLAGttO OD 
IF FLAG=1 THEN 
FLIPS==+COUNT 
IF FLIP—FLAG=1 THEN 
TMPX=XC TMPY=YC 
FLAG=0 
DO 

TMPX==+I TMPY==+J 
TEMP=TE5T_SQR(TMPX,TMPY) 
IF TEMP=0PP_COLOR THEN 
PLACE-CHIP(TMPX.TMPY) 
ELSE 
FLAG=1 
FI 

UNTIL FLAGttO OD 
FI 
FI 
FI 

OD OD 
FI 

RETURN (FLIPS) 

PROC UPDATE-VALUES() 

IF (MOVEXXMOVEY)=0 THEN 

VALUE—BOARD((PRO—COLOR-1)*64+1)=8 
VALUE-BOARD((PRO-COLOR-l)*64+8)=8 
VALUE-BOARD((PR0_C0L0R-1)*64+9)=8 
ELSEIF (MOVEX=0)AND(M0VEY=7) THEN 
VALUE-BOARD((PR0_C0L0R-1)*64 + 48) =8 
VALUE-BOARD((PR0_C0L0R-1)*64+45)=8 
VALUE-BOARD((PR0_C0L0R-1)*64+57)=8 
ELSEIF (M0VEX=7)AND(MOVEY=0) THEN 
VALUE-BOARD((PRO_COLOR-i)*64+6)=8 
VALUE-BOARD((PR0_C0L0R-1)*64+14)=8 
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^ Reversi continued 


VALUE-BOARD C(PR0-C0L0R-1J*64+153=8 
ELSEIF £MOVEX=73AND(M0VEY=73 THEN 
VALUE-BOARD((PRO-COLOR-1J*64+543=8 
VALUE-BOARDC CPRO-COLOR-13 *64 + 553 =8 
VALUE-BOARD t CPRO_COLOR-13*64 + 623 =8 
FI 

RETURN 

PROC COMPUTER 13 

BYTE BEST,SCORE,COUNT,XC,YC,TEMP 
BYTE ARRAY CHOICEX (193 
BYTE ARRAY CHOICEY £193 
BEST = 0 COUNT=0 

FOR YC = 0 TO 7 DO FOR XC = 0 TO 7 DO 
SCORE=FLIPPER CXC,YC,03 
IF SCORE>O THEN 

IF LEVEL (PRO—COLOR-13 =2 THEN 
SCORE==+VALUE—BOARDt 

tPRO—COLOR-13 *64 +YC*8 + XC3 
ELSEIF LEVEL(PRO—COLOR-13 =3 
THEN 

IF WHITE—5C0RE+BLACK—SCORE<30 
THEN 

SCORE=(25-SCORE)73+ 

VALUE-BOARD C (PRO-COLOR- 
13 *64 + YC*8 + XC3 

ELSE 

SCORE==+VALUE_BOARD £ 

(PRO—COLOR-13 *64 + YC*8 + XC3 
FI 

IF VALUE-BOARD(£PRO_COLOR-13* 
64+8*YC+XC3=0 THEN 
SCORE=l 
FI 
FI 

IF SCORE=BEST THEN 
CHOICEX (COUNT3=XC 
CHOICEY£COUNT)=YC 
COUNT==+l 

ELSEIF SCORE)BEST THEN 
COUNT=i 
CHOICEX(03 =XC 
CHOICEY (03=YC 
BEST=SCORE 
FI 


ELSEIF J0YX>54 THEN J0YX=26 
FI 

IF JOYY<5 THEN J0YY=33 

ELSEIF JOYY>33 THEN JOYY=5 
FI 

POSITION (SX,SY3 PUTD(6,TEMP3 
SX=JOYX SY=JOYY 
TEMP-LOCATE(JOYX,JOYY3 
IF TEMP-0 THEN 
COLOR=l 
ELSE 

C0L0R=5-TEMP 

FI 

PLOKJOYX, JOYY) 

SOUND(0,200,1O,83 
FOR 1=0 TO 2O0 DO FOR J=0 TO 10 
DO OD OD 
SNDRST(3 

FOR 1=0 TO 20O DO FOR J=0 TO 50 
DO OD OD 
FI 

FLAG=0 

IF STRIG(STICK—NUM3 =0 THEN 
MOVEX=(JOYX-183 74-2 
MOVEY=(JOYY-13 74-1 
IF FLIPPER£MOVEX,MOVEY,03>0 THEN 
FLAG=1 
FI 
FI 

IF KEY=10 THEN 
FLAG=2 

FOR 1=0 TO 7 DO FOR J=0 TO 7 DO 
IF FLIPPERd, J,03>O THEN 
FLAG=0 
1=7 J=7 

FI 

OD OD 
KEY=255 
MOVEX=8 
MOVEY=8 
FI 

UNTIL (FLAGH03 OD 
POSITION£5X,SY3 PUTD(6,TEMP3 
KEY=255 
RETURN 


FI 

OD OD 

IF BE5T=0 THEN 

MOVEX=8 M0VEY=8 
ELSE 

TEMP=RAND(COUNTS 
MOVEX=CHOICEX(TEMP3 
JOYX=(MOVEX + 23 *4 + 18 
MOVEY=CHOICEY(TEMP3 
JOYY=(MOVEY + 13 *4 + 1 
IF LEVEL(PRO—COLOR-13 =3 THEN 
UPDATE-VALUES (3 
FI 
FI 

RETURN 

PROC PLAYER(BYTE STICK—NUM3 
BYTE TEMP,SX,SY,FLAG,R,I,J 
KEY=255 TEMP=LOCATE(JOYX,JOYY3 
IF TEMP=0 THEN 
COLOR=l 
ELSE 

C0L0R=5-TEMP 

FI 

PLOKJOYX, JOYY3 5X = J0YX SY = JOYY 
DO 

R=STICK(STICK—NUM3 


IF 

£R&$83=0 

THEN 

JOYX= 

= + 4 

FI 

IF 

(R&$43=0 

THEN 

JO YX = 

= -4 

FI 

IF 

(R&$23=0 

THEN 

JO Y Y = 

= + 4 

FI 

IF 

(R&$13 =0 

THEN 

JO Y Y = 

= -4 

FI 


IF Rttl5 THEN 

IF JOYX <26 THEN J0YX=54 


PROC MAKE-MOVE(BYTE XC,YC3 
BYTE NF 
CARD I 

NF=FLIPPER(XC,YC,03 
IF PRO—COLOR=1 THEN 
WHITE—5C0RE==+NF+1 
BLACK—SCORE==-NF 
ELSE 

BLACK—SCORE==+NF+l 
WHITE—SCORE==~NF 
FI 

NF=FLIPPER(XC,YC,13 
PLACE-CHIP(XC,YC3 
SOUND(0,80,10,83 
FOR 1=0 TO 8O0 DO OD 
5OUND(0,0,0,03 
ATTRACT=0 
RETURN 

PROC MAIN £3 
BYTE PASS 
CHAR TEMP 
DO 

INITIALIZE£3 
P5C0RE (3 
DO 

IF WB(PRO—COLOR-13 =2 THEN 
COMPUTER (3 
ELSE 

PLAYER(WB£PRO_COLOR-133 
FI 

IF MOVEX=8 THEN 
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PASS —+ 1 
ELSE 
PASS-0 

MAKE-HOUE tMOVEX,MOVEY) 

FI 

PRO_COLOR=OPP_COLOR 
0PP_C0L0R-3 - 0P P_C O L 0 R 
PSCOREC) 

UNTIL (HHIT E_S C 0 R E+B L A C K_S CORE-643 
OR(PASS-2) OD 
PRINTEC" "J 

IF HHITE_5C0RE>BLACK_5C0RE THEN 
PRINT("White Wins!..."! 

ELSEIF BLACK—SCORED WHITE-SCORE 
THEN 

PRINT("Black Wins !..."3 
ELSE 

PRINT C"Tie ! .. ."3 
FI 

PRINTC'play again?"3 
TEMP=GETDt73 
UNTIL TEMPr'N OD 
RETURN 
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by Paul Tupaczewski 

In the game of Lawn Mower, you’re Tommy, a boy hired 
to mow lawns all around the town of Atariville. Since you 
have signed contracts with the people you’re going to mow 
for, you can’t escape the dangers that crop up while trim¬ 
ming the greens. 

The object of Lawn Mower is to clear the screen of grass. 
Whenever you go over a strip of grass, it turns darker to 
show it’s been cut. There are also trees impeding your way. 
If you hit a tree, you’ll bounce back. 

On board 1, the Joneses’ house, you must avoid Hi- 
Leggers. These creatures move from side to side, while ran¬ 
domly bouncing up and down. If they hit you, you lose 
one of your three lives. When you’ve lost all of your lives, 
the game ends. 

On board 2, Cursor Park, holes suddenly appear! These 
are made by gophers who are afraid to show themselves. 
If you fall into one of the holes, you lose a life. 

Board 3, the golf course, introduces the Mad Planter. 
He’s a little orange man who plants grass where you’ve 
already mowed. The only way to get rid of him is either 
to run him over, or to plant a land mine—and make him 
run into it. This will make him disappear. . . for a while. 

To plant a land mine, you simply press your joystick but¬ 
ton. An explosive which you’ve buried in the ground will 
look just like a piece of mowed lawn. The number of land 
mines is shown at the bottom of the screen. You get an 
extra mine every time you clear a board, with a maximum 
of five. If you run into a mine, you won’t be killed, but 


you will destroy the charge, rendering that mine useless 
against the enemy. 

In the final board, John’s orchard, the Mad Planter reap¬ 
pears. And there’s also a new problem. The orchard is 
separated into two parts by a superhighway. You must get 
across this road to travel from one side of the orchard to 
the other. 

If you run into a car while crossing, you’ll lose a life. 
Also, you can’t plant land mines on the road. If you mow 
all of this board, you’ll go back to board 1, but at a harder 
level. 

Scoring is as follows: mowing a piece of lawn=250 
points; making the Mad Planter run into a land mine=250 
points; running over the Mad Planter=500 points; and 
mowing all of a board=500 points times the level at which 
you played. 

Your score is shown in the upper left on the screen. The 
level is in the upper right, and your number of lives re¬ 
maining is shown by the number of circles next to the level 
number. The number of mines can be seen at the bottom 
of the screen. 

I used Tom Hudson’s excellent player mover subroutine 
from issue 10 and found it very easy and fast. I hope you 
have as much fun with Lawn Mower as I did. H 

Paul Tupaczewski attends school in Boonton, New Jer¬ 
sey. He’s had his Atari 400 for three years, with an Indus 
disk drive and an Epson RX-80 printer, which he received 
as a Christmas present. 

(Listing starts on next pageJ 


ATARI 8-BIT EXTRA 


ANALOG COMPUTING 49 


Lawn Mower continued 


The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 


Listing 1. 
BASIC listing. 


NJ 0 REM XXXXXXXXXXXXXXXXXXXXXXX 

QP 1 REM * Lawn Mower * 

SY 2 REM * by Paul Tupaczewski * 

FG 3 REM * ANALOG Cowputing * 

NN 4 REM xxxxxxxxxxxxxxxxxxxxxxx 
OM 5 DIM LOG (5) 

NL 7 K0=0:Ki=i:K2=Kl+Kl:K3=K2+Kl:K4=K2+K2 
:K5=K2+K3:K6-K3+K3:K7-K4+K3:K8=K4+K4 
FR 10 GOSUB 815:G05UB 720:G05UB 875 
MR 15 LIU=K3:SC=K0:LEU=Kl:LEV2=Kl:MIN=K5: 
HARD=KO 

CU 20 GRAPHICS K3*K6:DL=PEEK 1560)+PEEKC56 
1)X256+K4:POKE DL-K1,70:POKE DL+12,6:P 
OKE DL+K2,6:POKE 708,216:POKE 623,K1 
ZT 25 PMBASE=INT((PEEK(145)+K3)/K4)*K4:P0 
KE 54278,PMBASE:PMB=PMBASE*256:POKE 55 
8,46:POKE 53277,K3:P0KE 756,ST/256 
PH 30 POKE 708,184 

EE 35 POKE 784,148:MIN-MIN+Ki:IF MIN>K5 T 
HEN MIN=K5 

HC 40 POKE 705,252:POKE 706,16O:POKE 707, 

54 _ 

GW 45 POSITION Ki,K0:? tt6 J "SEE" J CHR$ C15 
4);SC:P05ITI0N 13,K0:F0R R=K1 TO LIU:? 
86; CHR$ (1381 j : NEXT R 

SK 50 POSITION 17,K0:? 06JLEU:POSITION K6 
,n:? tt6:» i;M:l*fl ,, :MiN 
MN 55 FOR R-K2 TO K3XK3:C0L0R K3:PLOT K2, 
R:DRAWTO 17,R:NEXT R 
JA 60 POSITION K5*K2,K5:? «6 j ,, 0‘': GRA = K0 
AD 65 ON LEU2 GOSUB 430,450,475,500 
SJ 67 GOSUB 810 

KK 70 X=128:Y=K3*K8*K2:X1=K5+K5:Yi=K5:M=K 
1:TMWT=K0:X3-K5+K5:Y3 = K2:MY3=K3*K8:MX3 
= 128 

OY 75 A=USRCMOUE,K0,PMB,ADR(M$tM*K8-K7,M* 
K8) ),X,Y,K8) 

TT 80 0X=X:0Y=Y:0X1=X1:0Y1=Y1 
GU 85 POKE 53278,K1 

WN 80 ON LEU2 GOSUB 185,205,240,250 
YS 85 IF PEEK (764) 033 THEN 115 
WH 100 POKE 764,255 

ID 105 IF PEEK(764) 033 THEN 105 

WJ 110 POKE 764,255 

HD 115 IF STRIG(0)=K0 AND MIN>KO AND LEU2 

>K2 AND LEU2CK5 THEN GOSUB 565 
UC 120 S=STICK(K0) :XAD=(S=K7)-(S=li) :YAD = 
(5=13)-(S=14) 

PU 125 X=X+XAD*K8:Y=Y+YAD*K8:XlrXl+XAD:Y1 
-Yl+YAD 

MF 130 IF XAD=-K1 THEN M=K2 
OD 135 IF XAD=K1 THEN M-Kl 
NN 140 IF YAD--K1 THEN M=K3 
RE 145 IF YAD-K1 THEN M=K4 

TO 150 IF XI<K2 OR Xl>17 OR Y1<K2 OR Yl>8 
THEN Xi=OXl!Yi=OYl:X=OX:Y=OY 
YA 155 LOCATE X1,Y1,L0C 

QJ 160 IF 0X10X1 OR 0Y1OY1 THEN IF LOC = 
K3 THEN POSITION XI, Yi : ? 86; ,, 8 M : SC = SC + 
10:GOSUB 585:GRA=GRA+K1 
GU 165 IF 0X1OX1 OR OYiOYl THEN IF LOC = 
36 THEN POSITION XI,Yl:? 86; "tt" : GOSUB 
580 

XT 170 IF 0X10X1 OR 0Y1OY1 THEN IF LOC = 
K7 THEN X1=0X1:Y1=0Y1:X=0X:Y=0Y:G05UB 
575 


JZ 175 IF GRA=GRS THEN 685 

UM 180 IF L0C=32 AND LEU2<>K4 THEN 525 

US 185 GOTO 75 

TB 185 GOSUB 310 

YY 20O RETURN 

RA 205 TMWT-TMHT+Ki:IF TMWT-25 AND HARDO 
K1 THEN 220 

HN 210 IF TMWT-18 AND HARD=K1 THEN 220 
ZP 215 RETURN 

US 220 TMWT-K0:R=INT(RND(0)WI4)+K3:T-INT( 
RND(0)XK5)+K3:LOCATE R,T,Z:GOSUB 830:1 
F FG-1 THEN 220 

PO 225 IF Z-Z2 THEN 220 

XF 230 IF Z=K3 THEN GRS=GRS~K1 

5P 235 POSITION R,T:? 86;" ":SOUND KO,K0, 
K8,K6!F0R R-Kl TO K5:NEXT R:SOUND KO,K 
fl I/O Kfl 1 PFTIIPN 

DG 240 TMWT=TMWT+K1:IF TMWT>55 THEM GOSUB 
380 

ZU 245 RETURN 

OJ 250 A=USR(MOUE,Ki,PMB,ADR(CL$),CXI,56, 
K8):A=USR(M0UE,K2,PMB,ADR(CR$),CX2,70, 
K8) 

YK 255 CX1=CX1-K4-HARD*K4:IF CX1<65 THEN 
CX1-184 

HZ 260 CX2=CX2+K6+HARD*K4:IF CX2>184 THEN 
CX2=65 

SM 265 IF PEEK (53260)=K2 OR PEEK(53260)=K 
4 THEN 280 

ZH 270 TMWT=TMWT+Kl:IF TMWT>60 THEN GOSUB 
380 

AB 275 RETURN 

MY 280 FOR R=15 TO KO STEP -0.2:P0KE 704, 
RISOUND K0,10O,K0,R:NEXT R 
QC 285 FOR R=K1 TO 100:NEXT R 
UW 288 POSITION 12+LIU,K0:? 86;" ":LIU=LI 
U-Kl 

MX 285 FOR R-15 TO K0 STEP -K1:S0UND K0,1 

21.10, R:NEXT R 

NG 30O IF LIU=K0 THEN 585 

YA 305 FOR R-Ki TO 100:NEXT R:CXi=120:CX2 
-65:POKE 704,148:GOTO 70 
HU 310 A-USR(MOUE,K1,PMB,ADR(GT$),MX1,MY1 
,K8):A=USR(M0UE,K2,PMB,ADR(GT$),MX2,MY 
2,K8):OMYi-MYl:0MY2=MY2 
HD 315 MX1-MX1+K4+HARD*K4:IF MX1>184 THEN 
MX1-64 

EO 320 MX2-MX2-K4-HARDXK4:IF MX2<64 THEN 
MX2-184 

OR 325 ADD-INT(RND(0)XK3)-K1:ADD=ADD*(K3+ 
HARD):MYi-MYl+ADD:IF MY1<24 THEN MY1=2 
4 

HM 330 IF MY1>80 THEN MY1=80 
ZT 335 ADD=INT(RND(0)*K3)-Ki:ADD=ADD*(K3+ 
HARD):MY2-MY2+ADD:IF MY2<24 THEN MY2=2 
4 

IU 340 IF MY2>80 THEN MY2 = 80 
XY 345 IF PEEK (53260)=K2 OR PEEK (53260)-K 
4 THEN 355 
ZJ 350 RETURN 

TQ 355 FOR R-15 TO KO STEP -0.2:S0UND K0, 
10O,K0,R:POKE 704,R:NEXT R 
PK 360 FOR R=Ki TO 100:NEXT R 
MG 365 POSITION 12+LIU,KO:? 86;" ":LIU=LI 
U-Kl 

FM 370 FOR R=15 TO K0 STEP -1:S0UND K0,12 

1.10, R:NEXT R 

OJ 375 IF LIU=K0 THEN 585 

KK 380 FOR R=K1 TO 100:NEXT R:POKE 704,14 
8:GOSUB 680:POKE 53278,Ki 
IJ 385 MX1-64:MX2-184:MY1-48:MY2-48:GOTO 
70 

HL 380 A = USR(MOUE,K3,PMB,ADR(PL$) , MX3, MY3 
,K8):0X3=X3:0MX3=MX3:LOCATE X3,Y3,ZZ 
LR 385 IF ZZ=36 THEN SC=SC+250:GOSUB 580: 
GOTO 425 

EP 4O0 IF ZZ=35 THEN POSITION X3,Y3:? 86; 
CHR$(K3):GRA=GRA-Ki 
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ML 


BD 


JO 


ZE 

SQ 


MH 


FV 


OG 

ZX 

XY 

KI 

TR 

MU 

ZO 

50 

RU 

50 


OF 

5C 

RY 

CE 

GG 


405 Y3=Y3+Ki:MY3=MY3+K8:IF MY3>80 THEN 
TMWT -K0:O-U5R CMOVE,3,PMB,ADR CT) , 0,0 
,1):X3=10:Y3=K2:MX3=128:MY3=24:RETURN 
410 ADD=INT CRNDCO)*K3)-Ki:X3=X3+ADD:MX 
3=MK3+ADD*K8:IF X3<K2 OR X3>17 THEN X3 
=0X3:MX3=0MX3 

415 IF PEEKC53260)=K8 THEN SC=SC+5O0:G 
05UB 550:FOR R=15 TO KO STEP -K3:S0UND 
K0,2O0,10,R:NEXT R:MY3=90:GOTO 405 
420 RETURN 

425 POSITION X3,Y3:? »6;"tt":F0R R=15 T 
0 K0 STEP -1.5!S0UND KO,200,K8,R:NEXT 


R:MY3=90:GOTO 405 

430 GR5=115:COLOR K7:PL0T K3,K3:PL0T K 
3,K4:PLOT K4,K3!PLOT K3,K8:PL0T K3,K7: 
PLOT K4,K8:MX1=64:MX2=184 
435 PLOT 15,K3:PLOT 16,K3:PL0T 16,K4:P 
LOT 15,K8:PLOT 16,K8:PL0T 16,K7:MY1=48 

:MY2=48 _ 

440 POSITION K4,K1:? »6 : " PUKI^TMilU't-H 11 
445 RETURN 

450 GRS=109:COLOR K7 

455 PLOT K31K8:DRAWT0 K8,K3:PL0T 11,K3 
IDRAWTO 16,K8 

460 PLOT K8,K8!PLOT 9,K7:PL0T 10,K7:PL 
OT 11,K8!PLOT K3,K3:PL0T 16,K3 
465 POSITION K5,Kl:? «6;"[ " ' ' 

470 RETURN 

475 POSITION K5,Kl:? «6;’ 
X3=10:Y3=K2:MY3=24:MX3=128:COLOR K7 
480 FOR R = K1 TO 15 

485 A = INT CRND C0)*16)+K2:B=INTCRND C0)*K 
7)+K2:LOCATE A,B,C:GOSUB 920:IF FG=1 T 
HEN 485 

490 IF C = K7 OR CA=10 AND B = K5) THEN 48 
5 

495 PLOT A,B:NEXT R:GR5=112:RETURN 
50O POSITION K3,K1:? 06 : 

0 " 

505 COLOR K7:FOR R=K3 TO 17 STEP 2:F0R 
T = K3 TO 9 STEP K2:PL0T R,T 
510 NEXT TiNEXT R:GRS=55:CX1=120:CX2=6 


CURSOR PARK 


GOLF COURSE 


5 

BL 515 COLOR 32:PL0T K2,K8:DRAWT0 17,K8:P 
LOT K2,K6:DRAHTO 17,K6:C0L0R 45:PL0T K 
2,K7:DRAWTO 17,K7 
ZF 520 RETURN 

TE 525 A = USRCMOUE,K0,PMB,ADR CMSCK1,K8)),X 
,Y,K8) 

NU 530 FOR R=15 TO KO STEP -0.1:SOUND KO, 
60-CR*K2),10,R:POKE 704,R:NEXT R 
PU 535 FOR R = K1 TO lOO.'NEXT R 
VP 540 POSITION 12+LIV,K0:? 86;" ":LIV=LI 
U-Kl 

MO 545 FOR R=15 TO KO STEP -KliSOUND K0,1 
21,10,R:NEXT R 
NS 550 IF LIV=K0 THEN 595 

PX 555 FOR R=Ki TO 10O:NEXT R:POKE 704,14 
8 

SA 560 GOTO 70 

IA 565 POSITION XI,Y1:? 06;"$":MIN=MIN~K1 
POSITION 12,11:? O6;MIN:F0R R = 15 TO K 
0 STEP -KI 

SB 570 SOUND KO,25,ID,R:NEXT R:RETURN 
EE 575 SOUND K0,200,8,6:FOR R = K1 TO K3:NE 
XT R:SOUND K0,K0,KO,K0:RETURN 
OK 580 SOUND K0,100,K0,10:FOR R=K1 TO K3i 
NEXT R:SOUND K0,K0,KO,K0:RETURN 
TV 585 FOR R=10 TO K0 STEP -2.5:S0UND KO, 
R,K8,R:NEXT R:SOUND K0,KO,KO,K0 
IK 590 POSITION K7,K0:? 86;SC:RETURN 
RU 595 GO SUB 680:P0SITI0N K6,K5:? 06; "CTEE 


XH 600 RESTORE 670 

YU 605 READ 0,P,DLY:IF 0=-Kl THEN 615 
JM 610 FOR R=15 TO K0 STEP -DLY:SOUND KO, 
O,10,R:SOUND KI,P,10,R:NEXT R:GOTO 605 
ON 615 FOR R=K1 TO 100:NEXT R:? 86:"IS":P0 


SITION K2, K3 : ? 06 : "L' Mn'jm.l i-J " :CHR$ C15 
4) ; SC 

PZ 620 POSITION K2,K5:? 06;"high score";C 
HR$ C26);HS:FOR R = K1 TO 400:NEXT R 
RU 625 IF SC< = HS THEN 655 

BE 630 FOR R=K1 TO K4:P0SITI0N K2,K3:? 06 
;"yourscore"LCHR$C26) : POSITION K2,K5: 
? 06; ,, tBnaHII3E ,, JCHR$C154) 

MQ 635 FOR T=15 TO KO STEP -1.5:S0UND KO, 
60,10,T:NEXT T:POSITION K2,K3:? 86;"PEJ 
; CHR$C154) 

WQ 640 POSITION K2,K5:? 06;"high score";C 
HR$C26)!F0R T = 15 TO K0 STEP -1.5:SOUND 
K0,121,10,T:NEXT TiNEXT R 
YF 645 FOR R=K1 TO 200:NEXT R:FOR R=HS TO 
SC STEP 50 

KG 650 POSITION 13,K5:? 86;R:P0KE 53279,K 
0:NEXT R:HS=SC:POSITION 13,K5:? 06;HS 
QZ 655 POSITION K5,K0:? 86;"PRESS Start": 

POSITION K4,KI:? O6:"T0 PLAY AGAIN" 

IE 660 IF PEEKC53279)<>K6 THEN 660 
IW 665 LIU=K3:SC=K0:LEV=K1:LEV2=K1:MIN=K5 
: HARD = KO : ? 06; "IS" : GOTO 30 
HB 670 DATA 121,96,1,96,81,1,108,91,1,91, 


72,1,96,81,1,72,68,1,72,60,5,81,64,5 
MR 675 DATA 91,72,5,96,81,5,108,91,5,121, 
96,1,-1,0,0 

SB 680 FOR R=KO TO K3:A=USRCMOUE,R,PMB,AD 
RC"V"),K0,KO,KI):NEXT R:RETURN 
YO 685 RESTORE 715 

SJ 690 READ 0,P,DLY:IF 0=-Kl THEN 700 
WA 695 FOR R=15 TO K0 STEP -DLY:SOUND K0, 
O,10,R:SOUND K1,P,10,R:NEXT R:G0T0 690 
EJ 7O0 LEU2=LEU2+K1:IF LEV2>K4 THEN LEU2= 


Ki:HARD=K1 

GU 70S SC=SC+500*LEV:LEV=LEV+K1 
DP 710 FOR R=KO TO K3:A=USRCMOUE,R,PMB,AD 
RC"V"),KO,KO,KI):NEXT R:GOTO 20 
HU 715 DATA 81,64,1,91,72,3,96,81,1,108,9 


1,3,121,96,1,60,47,1,-1,0,0 
FI 720 DIM PMMOV$C100):MOVE=ADRCPMMOUS):R 
ESTORE 755 

PC 725 FOR X = Ki TO 10O:READ N:PMMOU$ CX)=C 
HR$ CN) ! NEXT X 

MV 730 DIM M$ C32),PL$CK8),CL$CK8),CR$CK8) 
,GT$ CK8) 

OK 735 FOR R=Ki TO K8:READ D:CL$CR)=CHR$C 
D):NEXT R:FOR R=Ki TO K8:READ D:CR$CR) 
-qHR$ CD) NEXT R 

TO 740 FOR R=K1 TO K8:READ D:GT$CR)=CHR$C 
D):NEXT RIFOR R=K1 TO K8:READ D:PL$CR) 
=CHR$CD):NEXT R 

NS 745 FOR R=Ki TO 32:READ D:M$CR)=CHR$CD 
):NEXT R 
ZN 750 RETURN 

US 755 DATA 216,104,104,104,133,213,104,2 
4,105,2,133,206,104,133,205,104,133,20 
4,104,133,203,104,104,133,208 
IF 760 DATA 104,104,133,209,104,104,24,10 
1,209,133,207,166,213,240,16,165,205,2 
4,105,128,133,205,165,206,105 
IZ 765 DATA 0,133,206,202,208,240,160,0,1 
62,0,196,209,144,19,196,207,176,15,132 
,212,138,168,177,203,164 
LE 770 DATA 212,145,205,232,169,0,240,4,1 
69,0,145,205,200,192,128,208,224,166,2 
13,165,208,157,0,208,96 
QU 775 DATA 0,14,18,34,127,127,54,54 
KO 780 DATA 0,112,72,68,254,254,108,108 
RN 785 DATA 28,42,54,28,20,20,20,54 
UU 790 DATA 130,68,56,84,108,56,40,108 
TS 795 DATA 0,96,96,240,236,226,7i,98 
LG 808 DATA 0,6,6,15,55,71,226,70 
JT 805 DATA 64,224,80,16,8,190,254,56 
LA 810 DATA 28,127,125,16,8,10,7,2 
QZ 815 POKE 106,PEEKC106)-K5:GRAPHICS KO : 
5T=CPEEKC106)+K1)#256:POKE 756,ST/256: 
POKE 752,Ki 
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HJ 820 RESTORE 940:DIM XFR$ (383 :FOR R = K1 
TO 38:READ D:XFR$(R,R3=CHR$ (D3 :NEXT R 
HP 825 Z=USR(ADR(XFR$33 :RESTORE 845 
OC 830 POSITION 14,12:? "Initializing" 

RV 835 READ X:IF X=-K1 THEN RETURN 
OR 840 FOR Y=K0 TO K7:READ Z:P0KE X+Y+5T, 
ZiNEXT Y:GOTO 835 

RD 845 DATA 24,255,255,255,255,255,255,25 
5,255 

OE 850 DATA 32,255,255,255,255,255,255,25 
5,255 

OW 855 DATA 56,255,199,163,21,65,171,199, 
255 

ES 860 DATA 40,0,24,24,24,0,0,0,0 

TZ 865 DATA 80,0,0,28,62,62,62,28,0 

GR 870 DATA -1 

OR 875 GRAPHICS 17:DL=PEEK(560)+PEEK(5613 

*256+K4:POKE DL-R1,71:POKE DL+K2,K7:P0 
KE DL+K3,K7 

WG 880 COLOR 138:PLOT K4,KO:DRAHTO 15,KO: 

PLOT K4,K2:DRAWT0 15,K2 
10 885 POSITION K4,K1:? 86; CHR$ (138 J ; "FTT?: 
M^mj -jCHRSdSS) 

PS 890 POSITION 9,12:? 86;"BY":POSITION K 
3,14:? 86;"PAUL TUPACZEWSKI" 

VY 895 POSITION K5,18:? 86; " 3iBE Start" 
EG 900 IF PEEK(532793<>K6 THEN 900 
ZU 905 RETURN 

EH 910 FOR I-K8 TO 12:L0CATE I,K5,Z:L0C(I 
-K73 -Z : NEXT UPOSITION K8,K5:? 86; "REA 
DY" 

SD 915 FOR I=Ki TO 200:NEXT I:FOR I = K8 TO 
12:POSITION I,K5!? 86jCHR$(L0C(I-K733 
• UPUT T * PFTIIPN 

SG 920 FG-0:FOR I=A-K1 TO A+Kl STEP K2:F0 
R J=B-K1 TO B+Kl STEP K2:LOCATE I,J,Z: 
IF Z = K7 THEN FG=1 
AH 925 NEXT J:NEXT I:RETURN 
KH 930 FG-0:FOR I=R~K1 TO R+Kl STEP K2:F0 
R J=T-Ki TO T+Kl STEP K2:LOCATE I,J,P: 
IF P = 32 THEN FG=1 
AY 935 NEXT J:NEXT I:RETURN 
EB 940 DATA 104,169,0,133,203,133,205,169 
,224,133,206,165,106,24,105,1,133,204, 
160,0,177,205,145,203,200,208,249 
HX 945 DATA 230,204,230,206,165,206,201,2 
28,208,237,96 
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48K Disk 


GAME 



by Jan Iverson 


Trivia seems to be a “hot” item nowadays. There are 
board games on the market shelves and even some games 
on the more popular computers. 

With the program in Trivia, you can generate a ques¬ 
tion and four possible answers. Use the second listing as 
a sample of a game you may create. If you wish to create 
your own game, do so; the generator will assist you in set¬ 
ting up your trivia database. 

The uses are only limited by your imagination. You 
could reserve a disk each for sports, TV, movies, science, 
history, the Bible, etc.; the list can go on and on. 

Question-and-answer generator. 

The main menu contains four options: “create,” “edit,” 
“play” and “print.” 

The create menu has four options: “continue,” “edit,” 
“print” and “menu.” 

After typing in your question, four answers and the cor¬ 
rect number corresponding to the answer, press RETURN 
if you wish to continue entering. This will clear the screen, 
and you may enter a further trivia question with its an¬ 
swers. If you need to correct any of the data just entered, 
use the ARROW keys and page over to the edit option. 
Hit RETURN, and you may change any line. 

If you’re finished and want to print what you have in 
the database, you need not go back to the main menu. Just 
page over to the print option and press RETURN. This will 


save all the data you’ve entered thus far, so you’ll be able 
to view it. Paging over to the menu option and pressing 
RETURN will take you back to the main menu, after 
you’ve saved the database just entered. 

Our Trivia game is limited to 200 items. A count at the 
top of the screen indicates how many items you’re enter¬ 
ing and how many remain. 

If you need to edit any item in your trivia database, use 
the second option from the main menu. 

You’ll be allowed to enter the question as a search item, 
or, if you wish to step through the file, use the asterisk 
(*), and each item on the database will be displayed. 

The edit section has four options: “change,” “delete,” 
“next” and “menu.” 

When the item in question appears on-screen, press RE¬ 
TURN if you want to change any line. This routine will 
allow you to alter a line as many times as you wish. When 
finished, press OPTION to return to the edit menu. If you 
used the asterisk option to step through your database and 
want to see additional items, use the ARROW key to page 
over to the “next” option. The next item on the database 
will appear on-screen. The delete option will allow you 
to remove a single item from the database if you typed 
in the question name as a search message. If you used the 
asterisk option, it will delete the item and await your next 
request. When you’re finished, page over to the menu op¬ 
tion. All changes will be saved and you’ll return to the 
main menu. 

If you have enough questions to rim the Trivia game, 


ATARI 8-BIT EXTRA 


ANALOG COMPUTING 53 


t ■ 1 • • 

IriVia continued 


use the play option. The screen will inform you that the 
game is loading. 

The print menu has four of its own options: “screen,” 
“printer,” “both” and “menu.” 

Using the screen option allows you to view two com¬ 
plete items on your database at a time, with record num¬ 
bers. Press START to continue viewing. Press ESC to 
terminate the operation. When you’ve looked at the com¬ 
plete database, you'll be prompted to press SELECT to re¬ 
turn to the main menu. 

You also may send the database to a printer. Page over 
to the printer option and press RETURN. A hard copy of 
your database will be printed. If you wish to see the data¬ 
base on-screen as it’s printing, use the “both” option. 

Paging over to the menu option will return you to the 
main menu. 

The Trivia game. 

When saving Listing 2, use the name D:TRIV.BAS. The 
game question generator looks for this name when you use 
the play option from the main menu. 

The game program reads your database into an array 
with a limit of 200 items. When completed, the game will 
begin. 

Questions are selected through a random number al¬ 
gorithm beginning on Line 1110. The same questions and 
answers will not be used again in your session. When the 
questions are exhausted, a session will terminate, and 
you’ll be asked if you wish to play again. Pressing START 
will allow the database to be loaded for another session. 
The program has some sounds built into it, but, because 
we want enough questions and answers loaded into the 
array, the program is much simplified. 

If you select an incorrect answer, a buzz will sound 
while the correct number flashes for a few seconds. If you 
choose the correct number, a nice “beep-beep” sound will 
play. At the end of each question and answer, you’ll be 
asked to either press START to continue, or OPTION to 
finish. 

A timer at the top left will count down from 10 to 0. 
If you don’t answer the question in 10 seconds, the buzz 
will sound and a wrong answer will result. If the correct 
answer is given, the remaining seconds are transfered to 
the right-hand score. The screen will clear, and the run¬ 
ning total of right and wrong responses will be printed 
at the top. The running total will always print at the end 
of each question/answer routine. 

When the OPTION key is pressed, results will be print¬ 
ed at the top of the screen, an appropriate message will 
be printed, and a few bars of “The Entertainer” will play. 
If your current score is higher than the high score, it will 
be transfered to the HI-SCORE area. This way, you may 
compete against another person—or against your previ¬ 
ous best score. You’ll then be given the option to either 
end the session or play again. 

Use the question-and-answer generator to update your 
database. My family has played the game a number of 
times, and—just when they think they’re getting good at 
it—I put some new questions in and take out some old 
ones. It keeps them on their toes. 


1 have a number of trivia databases I’ve developed, in¬ 
cluding sports, TV, movies, commercials and ads, and 
general trivia. Have a happy Trivia hunt, d 

Ian Iverson is an applications programmer with Chev¬ 
ron Corp. He's been working with computers for eighteen 
years and is program chairman for his local user’s group 
(DACE). He lives in Antioch, California with his wife and 
three children. 


The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 


Listing 1. 

BASIC listing. 

HY 10 REM t mXXXXKKXXKKXKKKXKXXXKXKMXXXXK 


ZR 20 REM * * 
Tfi 30 REM * GOME GENERATOR * 
SK 40 REM * by * 
MQ 50 REM * Jan Iverson * 
ZV 60 REM * * 


IE 70 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
BF 80 REM 

UK 90 KO=0:K1=1:K2=2:K3=3:K4=4:K5=5:K6=6: 
K7=7:K8 = 8:K9 = 9:K10=10:Kll=ll:K12=12:K1 
3=13:K14=14:K15=15 

MV 100 K16=16:K17=17:K18=18:K19=19:K20=2O 
:K21=21:K22=22:K23=23:K24=24:K25=25:K2 
6=26:K28=28:K29=29:K30=30:K3i=3i 
FI 110 K7O8=708:K709=709:K710=710:K711=71 
1:K712 = 712:K764 = 764:K752=752:K155 = 1.55: 
K255=255:K54286=54286:K64=64:K1S2=192 
EL 120 K53761=53761:K45=45:K126=126:K5327 
9=53279:K125=125:K132=132:K196=196 
0Z 130 K1729=1729:K1730=173O:K1731=1731:K 
1732=1732:K1733=1733:K152=152:K132=132 
:K32=32:K52=52:K198=198 
RH 140 INIT=K0:COUNT=K0:PR=K0:MAX=200:CNT 
=K0:RMAIN=K0 

DX 150 DIM ANC20J,Qt30),A$C20), CRC2),C$C2 
),QS$C30) 

LL 160 DIM OUE5TSC30),AN51SC20),ANS2SC20) 

,ANS3$(20),AN54$ C20) ,ITS Cl),ARRSClll), 
FILElS CIS) ,FILE2S C15), Q$C30) 

VD 170 FILEi$ = " ■■ :FILE2$=" 

■ I 

NR 180 FILE1$="D1:GAME.DAT":FILE2S="D1:GA 
ME.TMP" 

BA 190 OPEN HK4,K4, K0, "K:" 

DY 200 G05UB 4920:P0KE 39976,K6:POKE 3997 
7,Kli:P0KE K752,K1:POKE 53774,K64:POKE 
112,K64 

YN 210 POSITION K7,K0:? "Use <E5C> to exi 
t program" 

PD 220 POKE 1729,4:FOR 1=1 TO 10:NEXT I: P 
0KE 1730,4:FOR 1=1 TO 10:NEXT I 
CH 230 POKE 1731,4:FOR 1=1 TO 10:NEXT I:P 
0KE 1732,4 

X5 240 POKE 1733,132 
ME 250 POKE K708,218 

JS 260 POSITION K1,K3:? "A TRIVIA QUIZ GA 
ME" 

AY 270 POSITION K13,K6:? "By Jan Iverson" 
ND 280 POSITION K10,K8:? "For Analog Comp 
uting" 

B0 290 POSITION K2,K10:? "- 


ZC 300 POSITION Kll,K14:? "Use the £«■ 
keys" 
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■to wake your se 


■then press 


CREATE 


EDIT 

PLAY 


CREATE 


MI 310 POSITION K8,K16i? 
lection" 

SH 320 POSITION Kll,K18i? 

nTTTTT ' 

XV 330 POSITION Ki,K22i? ■ 

OM 340 POSITION Kll,K22i? 

GA 350 POSITION K2i,K22i? 

KG 360 POSITION K31,K22i? ■■ PRINT 
KX 370 POKE K764,K255 
YI 380 POSITION K1,K22:? "| 

SK 390 IF PEEK CK764)= K6 THEN POSITION Ki, 
K22:? ■■ CREATE ":GOSUB 650:GOTO 580 
ES 400 IF PEEKCK764XK7 THEN POSITION Ki, 
K22:? " CREATE ":GOSUB 656:G0T0 440 
EO 410 IF PEEKCK764J=K28 THEN GRAPHICS O: 
END 

RT 420 IF PEEK CK764J-K12 THEN 660 
OE 430 GOTO 390 

K5 440 POKE K764,K255 _ 

TB 450 POSITION Kii,K22i? 

MP 460 IF PEEK CK764)= K6 THEN POSITION Kll 
,K22i? '• EDIT ": G05UB 650:GOTO 370 
CD 470 IF PEEK CK764)-K7 THEN POSITION Kll 
,K22:? " EDIT "iGOSUB 650:GOTO 510 
FC 480 IF PEEKCK764XK28 THEN GRAPHICS 0: 
END 

UM 490 IF PEEKCK764)=K12 THEN 1530 
PC 500 GOTO 460 

KN 510 POKE K764,K255 _ 

KI 520 POSITION K21, K22 : ? 

MP 530 IF PEEKCK764XK6 THEN POSITION K21 
,K22:? " PLAY ":GOSUB 650:GOTO 440 
BL 540 IF PEEK CK764)=K7 THEN POSITION K21 
,K22i? " PLAY "iGOSUB 650:G0T0 580 
EX 550 IF PEEKCK764J=K28 THEN GRAPHICS 0! 
END 

El 560 IF PEEKCK7643-K12 THEN 4860 
OT 570 GOTO 530 
LB 580 POKE K764,K255 
PA 590 POSITION K31,K22i? 

GH 600 IF PEEKCK764J-K6 THEN POSITION K31 
,K22i? " PRINT "iGOSUB 650IGOTO 510 
SL 610 IF PEEK(K764)-K7 THEN POSITION K31 
,K22i? " PRINT "iGOSUB 650:GOTO 370 
ES 620 IF PEEKCK7641-K28 THEN GRAPHICS 0! 
END 

01 630 IF PEEKCK764XK12 THEN 3108 
NR 640 GOTO 600 

OU 650 SOUND 0,45,10,8:FOR I = K1 TO K3:NEX 
T I!SOUND O,0,0,O:RETURN 
EN 660 POKE K1733, K4 i ? CHRSCK125) 

WA 670 POKE K708,K152iP0SITI0N K6,K3i? "C 
REATE" 

AR 680 POSITION K2,Kli? "Max = ";MAX:POSI 
TION K15, KI i ? "Curr = "iPOSITION K29,K 
li? "ReM = ":CNT=K0iRMAIN=K0 
KF 690 POKE K1733,196iCH-l 
ZM 70O POKE K54286,K64 

NI 710 POSITION K10,KiO:? "Reading file.. 


PRINT 


00 720 CLOSE »KliCLOSE ttK2 

EW 730 TRAP 760iOPEN OKI,K4,KO,FILEiSiTRA 
P 40000 

ZH 740 OPEN HK2,K8,K0,FILE2$ 

00 750 GOTO 8O0 

XS 760 CLOSE OKIiOPEN ttKl,K8,KO,FILEiS 

ec 7j^ji\i^%-"^SSSS5SMSSS5M5MSSSSSSSl 

JO 780 ? ttKl; QUESTS i ? ttKijANSlSi? ttKi;AN5 
2$ i ? ttKl;ANS3$I? ttKl; AN54S i ? ttKl;IT$ 

JL 790 CLOSE ttKl i GOTO 720 

WZ 80O INPUT ttKl,QUESTS,ANSiS,ANS2S,ANS3S 
, ANS4$,IT$ 

OP 810 IF QUESTS: 

aHSE" THEN 850 
SI 820 ? ttK2; QUESTS i ? ttK2;ANSlSi? ttK2 ; ANS 
2$!? ttK2;AN53$i ? HK2; ANS4$ i ? »K2;IT$ 

IH 825 POSITION K22,Kli? ■■ "iPOSITION 3 


zzzzzzzzzzzzzzzzzzzzzzz 


5, KI: ? ■■ ■■ 

FT 830 CNT=CNT+1iPOSITION K22,Kli? CNTiRM 
AIN=MAX - CNTiPOSITION 35,Kll? RMAIN 
ON 840 GOTO 80O 
MO 850 POKE K54286,K192 
QQ 860 POSITION K10,KlOi? " 

II 

WB 870 POSITION K1,K0:? "Create your own 
questions and answers" 

UI 880 GOSUB 4400 

J5 890 POKE K1732,K52iFOR I=K1 TO K10:NEX 
T IiPOKE K1731,K52iFOR I=Ki TO KlOiNEX 
T I 

WO 90O POKE K1730,K52iFOR I=K1 TO KlOiNEX 
T IiPOKE K1729,K52 
QZ 910 GOSUB 4470iGOSUB 4760 
NZ 920 POKE K764,K255iX-K8:Y-K6:P0SITI0N 
X,Y:? "■" 

OK 930 GOSUB 3800 

IX 940 IF LENCQ$J<K30 THEN Q$tLENtQ$J+11= 
" "!GOTO 940 
XT 950 IF Q$=" 

" THEN 920 
MG 960 QUEST$=Q$ 

XA 970 Q$C30)="V"!QSC21=" "iQ$=" " 

00 980 POKE K764,K255iX=K10iY=K8:PO5ITION 
x,Y:? "■" 

YO 990 GOSUB 3950 

QG 1000 IF LEN(AS)<K20 THEN ASCLENCAS)+1) 
..GOTO 1000 

FN 1010 IF A$=" " THEN 

980 

JB 1020 ANS1S=A$ 

OH 1030 A$C20)="¥"!ASC2)=" ":AS=" " 

ZQ 104O POKE K764,K255iX=K10:Y=K10iPOSITI 
ON X,Yi? 

FB 1O50 GOSUB 3950 

CS 1060 IF LENCA$)<K20 THEN ASCLENCAS)+1) 
= ■■ "iGOTO 1060 

PD 107O IF A$-" " THEN 

1040 

KC 108O ANS2$=AS 

OZ 1090 ASC20)="¥"IASC2)=" ":A$=" " 

BQ 11O0 POKE K764,K255:X-K10:Y-K12:PO5ITI 
ON X,Yi? "■" 

ER 1110 GOSUB 3950 

WK 1120 IF LENCASXK20 THEN AS CLEN CA$)+1) 
=" "iGOTO 1120 

JW 1130 IF AS=" " THEN 

1100 

KB 1140 ANS3S-AS 

OP 1150 A$C20)="¥"IASC2)=" "iA$=" " 

ES 1160 POKE K764,K255iX=K10iY=K14:P0SITI 
ON X,Yi? "I" 

FJ 1170 GOSUB 3950 

IW 1180 IF LENCASXK20 THEN A$ CLEN CAS)+1) 
=" "IGOTO 1180 

UG 1190 IF AS=" " THEN 

1160 

KA 1200 ANS4$=AS 

OF 1210 ASC20)="*":ASC2)=" "IAS=" " 

MM 1220 POKE K764,K255iX=K16iY=K16iP0SITI 
ON X,Y:? "1" 

ZH 1230 GOSUB 4110 

GP 1240 IF LENCCSXKl THEN CS CLEN CCS) +1) = 
" "IGOTO 1240 

CO 1250 IF C$=" " THEN 1220 
YI 1260 IT$-C$ Cl,1) 

WY 1270 C$C2)="¥"ICSC2)=" "!CS=" " 

AN 1280 POKE K764,K255 

OM 1285 POSITION ..POSITION 

35,KIi? " 

IX 1290 CNT=CNT+1iPOSITION K22,Kli? CNTiR 
MAIN=MAX-CNTiPOSITION 35,Kll? RMAIN 
JA 1300 POKE K764,K255iPOSITION Kl,K22i? 
"HilllBIEB" 

AG 1310 IF PEEKCK7641-K6 THEN POSITION KI 
,K22i? "CONTINUE"IGOSUB 650IGOTO 1470 
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continued 


SR 1320 IF PEEKCK764J=K7 THEN POSITION Kl 
,K22i? "CONTINUE":60SUB 650:G0T0 1350 
KG 1330 IF PEEKIK764J-K12 THEN POKE K5428 
6,K64:GOSUB 4260:P0KE K54286,K192iGOSU 
B 4400:GOTO 920 
PD 1340 GOTO 1310 

AG 1350 POKE K764,K255 _ 

CS 1360 POSITION K11,K22:? "■OdDM" 

PR 1370 IF PEEKtK764)=K6 THEN POSITION K1 
l,K22i? " EDIT ":GOSUB 650:GOTO 1280 
CC 1380 IF PEEKCK764)=K7 THEN POSITION K1 
l,K22i? " EDIT "iGOSUB 650:G0T0 1410 
PC 1390 IF PEEKCK764J=K12 THEN 2180 
RT 1400 GOTO 1370 

ZW 1410 POKE K764,K255 _ 

JG 1420 POSITION K21,K22i? 

ZI 1430 IF PEEKCK7643-K6 THEN POSITION K2 
l,K22i? " PRINT ":GOSUB 650:G0T0 1350 
IW 1440 IF PEEKCK764)=K7 THEN POSITION K2 
i,K22i? " PRINT "iGOSUB 650:G0T0 1470 
BA 1450 IF PEEKCK764)=K12 THEN POKE K5428 
6,K64iGOSUB 4260:G0SUB 428O:P0KE K5428 
6,K192:G0T0 3100 
OK 1460 GOTO 1430 

AO 1470 POKE K764,K255 _ 

Uy 1480 POSITION K31, K22 i ? "■CI=CII■ ,, 

HU 1490 IF PEEK CK764)=K6 THEN POSITION K3 
1,K22i? " MENU "iGOSUB 650:G0T0 1410 
WD 1500 IF PEEK(K764)=K7 THEN POSITION K3 
1,K22i? " MENU "IGOSUB 6501G0T0 1280 
AN 1510 IF PEEKtK764)=K12 THEN POKE K5428 
6,K64iGOSUB 4260:G0SUB 4280:P0KE K5428 
6,K192 i ? CHR$fl25)iGOTO 210 
TN 1520 GOTO 1490 

TC 1530 POKE K1733,K4i? CHR$CK125J 

WO 1540 POKE K708,70:POSITION K7,K3i? "ED 

IT" 

ZM 1550 FOUND=KOiCH=2 
ML 1560 POKE K1733,K32 

MW 1570 POSITION K 2,K0i? "Use the tt k 
eys then press 
BB 1580 GOSUB 4400 

KW 1590 POKE K1732,K132:F0R I = K1 TO KlOiN 
EKT IiPOKE K1731,K132iF0R I = K1 TO K10i 
NEXT I 

YK 1600 POKE K1730,K132iF0R I=K1 TO KlOiN 
EKT IiPOKE K1729,K132 
OB 1610 GOSUB 4500iGOSUB 4600 
SL 1620 POSITION K0,K6i? "t ► " 

CG 1630 POKE K764,K255:X=K8:Y-K6:P05ITI0N 
X, Y: ? "■" 

CF 1640 GOSUB 3800 

Ft) 1650 IF LEN CQ$) <K30 THEN Q$CLENCQ$)+1) 
=" "iGOTO 1650 
UI 1660 IF Q$ = " 

" THEN 1630 
PO 1670 Q5$=Q$ 

NZ 1680 ... . . 

RZ 1690 POKE K54286,K64 
TB 1700 CLOSE ttKliCLOSE ttK2 
MG 1710 OPEN ttKl,K4, KO,FILEi$:OPEN ttK2,K8 
,K0,FILE2$ 

HI 1720 INPUT ttKl,QUEST$,AN51$,ANS2$,AN53 
$,0X54$, IT$ 

WP 1730 IF QUESTS -*' *********************** 
ESSSaS" THEN 2120 

QM 1740 IF QS$tl,1)= "*" THEN FOUND=i:GOTO 
1780 

AT 1750 IF Q5$=QUEST$ THEN F0UND=1iGOTO 1 
780 

BS 1760 ? ttK2 j QUESTS i ? BK2;ANSl$i? ttK2; AN 
S2$i? ttK2jAN53$i? »K2;AN54$i? ttK2;IT$ 
SD 1770 GOTO 1720 

KY 1780 POSITION K8,K6i? QUE5T$iPOSITION 
K10,K8i? ANSlSiPOSITION K10,K10i? ANS2 

YX 1790 POSITION K10,K12i? ANS3$iPOSITION 
K10,K14i? AN54$iPOSITION K16,K16i? IT 


$ 

FR 1800 POKE K54286,K192 

AE 1810 POKE K764,K255 _ 

TO 1820 POSITION Kl,K22i? " ■fflM.'M.M " 

LO 1830 IF PEEKCK764)=K6 THEN POSITION Ki 
,K22i? " CHANGE "iGOSUB 650iG0TO 2000 
AC 1840 IF PEEKCK764)=K7 THEN POSITION Kl 
,K22i? " CHANGE "iGOSUB 650:G0T0 1870 
XM 1850 IF PEEKCK764J-K12 THEN CH=2iG0T0 
2180 

TB I860 GOTO 1830 

AW 1870 POKE K764,K255 _ 

MO 1880 POSITION Kll,K22i? 

JO 1890 IF PEEKCK764)=K6 THEN POSITION Kl 
1,K22i? ** DELETE "iGOSUB 650IG0T0 1810 
UX 1900 IF PEEKCK764J=K7 THEN POSITION Kl 
1,K22i? " DELETE "iGOSUB 650:G0T0 1940 
CS 1910 IF PEEKCK764)=K12 AND QS$(1,13<>" 
*" THEN POKE K54286,K64:G0T0 2080 
OZ 1920 IF PEEK(K764)=K12 AND GS$C1,1)="* 
" THEN POKE K54286,K64iPOSITION K11,K2 
2i? " DELETE "iGOTO 1720 
MU 1930 GOTO 1890 

AP 1940 POKE K764,K255 _ 

FU 1950 POSITION K21,K22i? "■EBEDM" 

CY I960 IF PEEKCK764)=K6 THEN POSITION K2 
1,K22i? " NEXT "iGOSUB 650:G0T0 1870 
PS 1970 IF PEEKCK764J=K7 THEN POSITION K2 
1,K22:? " NEXT "iGOSUB 650:GOTO 2000 
PF 1980 IF PEEKCK764)=K12 AND QS$Ci,iJ="* 
" THEN POSITION K21,K22i? " NEXT "iP 
OKE K54286,K64iGOSUB 2060:G0T0 1720 
ML 1990 GOTO 1960 

ZM 2000 POKE K764,K255 _ 

TW 201O POSITION K31, K22 i ? "■dHHH" 

DP 202O IF PEEKtK764)=K6 THEN POSITION K3 
1,K22i? " MENU "iGOSUB 650:GOTO 1940 
TA 203O IF PEEK tK764)=K7 THEN POSITION K3 
1,K22i? " MENU "iGOSUB 650:G0T0 1810 
YP 2040 IF PEEK(K764)=K12 THEN POKE K5428 
6,K64iGOSUB 2060iGOTO 2080 
OP 2050 GOTO 2020 

BF 2060 ? »K2;QUEST$i? ttK2;AN51$i? «K2;AN 
S2$i? BK2;ANS3$i? »K2;ANS4$i? ttK2;IT$ 
AM 2070 RETURN 

HN 208O INPUT ttKl,GUEST$,AN51$,AN52$,ANS3 

$,ANS4$,IT$ _ 

WU 2090 IF OUEST$ = * "rkkkkkkkkkkkkkirkkkMkkki 
mSSSSR" THEN 2120 

AP 2100 ? ttK2;QUEST$i? ttK2;AN51$i? ttK2;AN 
S2$i? ttK2;ANS3$i? ttK2;ANS4$i? ttK2;IT$ 
RF 2110 GOTO 208O 

HM 2120 IF FOUND=KO THEN GOSUB 4360 
AY 2130 ? ttK2;QUE5T$i? ttK2;ANSl$i? ttK2;AN 
S2$i? ttK2;ANS3$i? ttK2;AN54$i? ttK2jIT$ 
TC 2140 CLOSE ttKliCLOSE ttK2 
AP 2150 XIO 33,ttKl,K0,K0,FILE1$ 

FJ 2160 XIO 32,ttKl,K0,K0,"DiGAME.TMP,GAME 
. DAT" 

DJ 2170 POKE K54286,K192i? CHR$fK125JiGOT 
0 210 

LO 2180 POKE K1733,K4 

JG 2190 GOSUB 4810:P0KE K1729,K4iGOSUB 48 
20iPOKE K1730,K4 

JG 2200 GOSUB 4830:P0KE K1731,K4iGOSUB 48 
40 : POKE K1732,K4 
DT 2210 GOSUB 4650 

IJ 2220 POKE 1757,K6iPOKE K1733,K2iPOSITI 
ON K12,K22i? "OPTION=RETURN" 

CQ 2230 POKE K1732,K198iFOR I"K1 TO K5:NE 
XT IiPOKE K1731,K198iF0R I=K1 TO K5iNE 
XT I 

WB 2240 POKE K1730,K198iFOR I=K1 TO K5:NE 
XT IiPOKE K1729,K198 
D5 2250 GOSUB 4550 
AE 2260 POKE K764,255 
ST 2270 POSITION K0,K6i? "t►" 

JG 2280 IF PEEKCK764)=K14 THEN POSITION K 
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0,K6:? " "iGOSUB 650!GOTO 2960 
IB 2290 IF PEEKCK764J-K15 THEN POSITION K 
0,K6:? ” "IGOSUB 650:GOTO 2400 
KB 2306 IF PEEK(K53279)=K3 AND CH = K2 THEN 
GOSUB 4710:POKE i757,12lP0KE K1733,K3 
2: GOTO 1810 

BP 2310 IF PEEK(K53279)=K3 AND CH = K1 THEN 
GOSUB 4660:POKE 1757,12:P0KE K1733,K1 
96 I GOTO 1300 

OW 2320 IF PEEK(K764)=K12 THEN GOTO 2340 
SN 2330 GOTO 2280 

BK 2340 POKE K764,K255IX = K8:Y = K6!POSITION 

K8,K6:? "|.. . . . . 

.."IGOSUB 3800 

BO 2350 IF LEN(0S)<K30 THEN Q$ CLEN (QS)+1) 
=" "IGOTO 2350 
PV 2360 IF G$ = " 

" THEN GOTO 2340 
SW 2370 OUEST$-Q$ 

FA 2380 0$ (30) -" ":QS(2)=" "iQSr"" 

SF 2390 GOTO 2260 

ZO 2400 POKE K764,255 

TR 2410 POSITION K0,K8:? "fc ►" 

UE 2420 IF PEEK(K764)=K14 THEN POSITION K 
0,K8I? " "IGOSUB 650 I GOTO 2260 
XP 2430 IF PEEK(K764)=K15 THEN P05ITI0N K 

0,K8I? .GOSUB 650:GOTO 2540 

XP 2440 IF PEEK(K53279)=K3 AND CH=K2 THEN 
GOSUB 4710 I POKE 1757,12:P0KE K1733.K3 
2-.G0T0 1810 

CD 2450 IF PEEK(K53279)=K3 AND CH = K1 THEN 
GOSUB 4660IP0KE 1757,12lP0KE K1733,K1 
96 I GOTO 130O 

YH 2460 IF PEEK(K764)=K12 THEN GOTO 2480 
QZ 2470 GOTO 2420 

PY 2480 POKE K764,K255lX=K10lY=K8lP0SITI0 

N K10,K8I? "|."IGOSU 

B 3950 

SW 2490 IF LEN(A$)<K20 THEN AS (LEN(AS)+1) 
-" "IGOTO 2490 

YZ 2500 IF AS=" " THEN 

GOTO 2480 
JJ 2510 ANS1$=AS 

ZJ 2520 A$(20)-" "I AS(2)..AS="" 

PP 2530 GOTO 2400 

AE 2540 POKE K764,255 

OL 2550 POSITION KO,K10I? "t ►" 

FL 2560 IF PEEK(K764)-K14 THEN POSITION K 
0,K10I? " "IGOSUB 650 I GOTO 2400 
GM 2570 IF PEEK (K764)rK15 THEN POSITION K 
0,K10I? " "IGOSUB 6501 GOTO 2680 
YD 2580 IF PEEK(K53279)=K3 AND CH=K2 THEN 
GOSUB 4710 I POKE 1757,12:P0KE K1733,K3 
2:GOTO 1810 

CR 2596 IF PEEK(K53279)=K3 AND CH=K1 THEN 
GOSUB 4660 I POKE 1757,12lP0KE Ki733,Ki 
96 I GOTO 1300 

5D 2600 IF PEEK(K764)=K12 THEN GOTO 2620 
5X 2610 GOTO 2560 

SP 2620 POKE K764,K255lX=K10lY=K10lPOSITI 

ON K10, K10 I ? "I."IGO 

SUB 3950 

KK 2630 IF LEN(A$)<K20 THEN AS(LEN(AS)+1) 
=" "IGOTO 2630 

SF 2640 IF A$-“ " THEN 

GOTO 2620 
KG 2650 ANS2$=AS 

ZX 2660 A$(20)-" "IA$(2)=" "IA$="" 

SP 2670 GOTO 2540 

AS 2680 POKE K764,255 

QN 2690 POSITION K0,K12l? "t ► " 

VG 2700 IF PEEK(K764)=K14 THEN POSITION K 
0,K12I? " "IGOSUB 650I GOTO 2540 
YS 2710 IF PEEK(K764)-K15 THEN POSITION K 
O,K12I? " "IGOSUB 650I GOTO 2820 
XP 2720 IF PEEK(K53279)-K3 AND CH = K2 THEN 
GOSUB 4710I POKE 1757 i 12:P0KE K1733,K3 
2 I GOTO 1810 


CD 2730 IF PEEK(K53279)=K3 AND CH=K1 THEN 
GOSUB 4660 I POKE 1757,12:P0KE K1733,K1 
96 I GOTO 1300 

ZO 2740 IF PEEK(K764)=K12 THEN GOTO 2760 
RJ 2750 GOTO 2700 

ZF 2760 POKE K764,K255IX=K10IY=K12IPOSITI 

ON K10, K12 I ? "I...".'GO 

SUB 3950 

US 2770 IF LEN(AS)<K20 THEN AS (LEN (AS)+1) 
..GOTO 2770 

BT 2780 IF AS=" " THEN 

GOTO 2760 
LD 2790 AN53$=AS 

ZJ 2800 AS(20)=" "lAS (2)... 

UN 2810 GOTO 2680 

AE 2820 POKE K764,255 

RN 2830 POSITION K0,K14l? "t ►" 

MD 2840 IF PEEK(K764)-K14 THEN POSITION K 
0,K14I? " "IGOSUB 650 I GOTO 2680 
PP 2850 IF PEEK(K764)=K15 THEN POSITION K 
0,K14I? " "IGOSUB 650 I GOTO 2960 
YD 2860 IF PEEK(K53279)=K3 AND CH=K2 THEN 
GOSUB 4710I POKE 1757,12lP0KE K1733,K3 
2 I GOTO 1810 

CR 2870 IF PEEK(K53279)=K3 AND CH=K1 THEN 
GOSUB 4660 I POKE 1757,12:P0KE K1733,K1 
96 I GOTO 1300 

UM 2880 IF PEEK(K764)=K12 THEN GOTO 2900 
UJ 2890 GOTO 2840 

ET 2900 POKE K764,K255lX=K10lY=K14lPOSITI 

ON K10, K14 l ? "|."IGO 

SUB 3950 

MG 2910 IF LEN(A$)<K20 THEN AS (LEN (AS)+1) 
=" "IGOTO 2910 

TX 2920 IF A$=" " THEN 

GOTO 29O0 
KY 2930 ANS4$=AS 

ZX 2940 AS (20)=" "IA$(2)=" "IAS="" 

SZ 2950 GOTO 2820 

AS 2960 POKE K764,255 

TP 2970 POSITION K0,K16l? "t ►" 

FL 2980 IF PEEK (K764)=K14 THEN POSITION K 
O,K16I? " "IGOSUB 650 I GOTO 2820 
BK 2990 IF PEEK(K764)=K15 THEN POSITION K 
0,K16I? " "IGOSUB 650 I GOTO 2260 
HH 3000 IF PEEK(K53279)=K3 AND CH=K2 THEN 
GOSUB 4710 I POKE 1757 J 12lP0KE K1733,K3 
2 I GOTO 1810 

BK 3010 IF PEEK(K53279)=K3 AND CH=K1 THEN 
GOSUB 4660:POKE 1757J12IP0KE K1733,K1 
96 I GOTO 1300 

NY 3020 IF PEEK(K764)=K12 THEN GOTO 3040 
VO 303O GOTO 2980 

JZ 304O POKE K764,K255:X=K16lY=K16lP0SITI 
ON K16,K16 I? "■"IGOSUB 4110 
JE 3050 IF LEN(C$)<K2 THEN C$ (LEN (CS)+1) = 
.GOTO 3050 

IP 306O IF CS=" " THEN GOTO 3040 
IF 3070 ITS^CS 

AT 3080 CS (2)=" ":C$(2)=" "ICS="" 

VG 309O GOTO 2960 

SN 310O POKE K1733,K4I? CHRS(K125) 

NC 3110 COUNT-0 

OC 3120 POSITION K4,K0I? "Use <CTL> & 1 k 
ey to stop print" 

FB 3130 POKE K708,K1521 POSITION K7,K3l? " 
PRINT" 

VY 3140 POSITION K12,K6i? "Printer Option 
s" 

ED 3150 POSITION K2,K10I? "- 


DW 3160 POSITION Kll,K14l? "Use the t* 
keys" 

WO 3170 POSITION K8,K16i? "to wake your s 
election" 

JK 3180 POSITION Kll,K18i? "then press HI 

iTTTTTTl " 

FB 3190 POKE K1729,K4:F0R I=Ki TO K10INEX 
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Trivia continued 


15 

XY 
UT 
AG 
SR 
CR 
A J 
VI 
IQ 

BB 

KI 

5T 

ZZ 

SE 

IR 

5F 

EM 

RX 

AR 

LE 

UZ 

EM 

FK 

PZ 

AH 

UR 

EM 

MU 

ED 

TR 

UD 

JY 

AN 

HJ 


HO 

GQ 

VO 

HH 

01 

ND 

HD 


IX 


MK 

XQ 


5F 

NZ 

KU 

HZ 

IS 

JL 

JC 

LU 

AV 

PY 


SCREEN 


PRINTER 


T IiPOKE K1730,K4:FOR I = K1 TO K10:NEXT 
I 

3200 POKE K1731,K4:FOR I = K1 TO KiO:HEX 
T IiPOKE K1732,K4 
3210 POKE K1733,38 

3220 POSITION Ki,K22:? "E32III1" 

3230 POSITION Kll,K22i? "PRINTER " 

3240 POSITION K21,K22i? " BOTH •• 

3250 POSITION K31,K22i? " MENU " 

3260 POKE K764,K255 

3270 POSITION K1,K22:? _ 

3280 IF PEEK (K764) = K6 THEN POSITION Kl 
,K22i? " SCREEN ":GOSUB 650:G0T0 3440 
3290 IF PEEK(K764)=K7 THEN POSITION Kl 
,K22i? " SCREEN ":G0SUB 65O:G0T0 3320 
3300 IF PEEKCK764J=K12 THEN 3500 
3310 GOTO 3280 
3320 POKE K764,K255 

3330 POSITION Kll,K22:? _ 

3340 IF PEEK(K764)=K6 THEN POSITION Kl 
l,K22i? "PRINTER ":G05UB 650:G0T0 3260 
3350 IF PEEK(K764)=K7 THEN POSITION Kl 
I,K22i? "PRINTER "iGOSUB 650:G0T0 3380 
3360 IF PEEK(K764)=K12 THEM PR-K1:G0T0 
3500 

3370 GOTO 3340 
3380 POKE K764,K255 
3390 POSITION K21,K22i? 

3400 IF PEEK (K764)=K6 THEN POSITION K2 
l,K22i? " BOTH ":GOSUB 650:G0T0 3320 
3410 IF PEEK (K764)=K7 THEN POSITION K2 
l,K22i? " BOTH "iGOSUB 650:G0T0 3440 
3420 IF PEEK(K764)=K12 THEN PR=K2iGOTO 
3500 

3430 GOTO 3400 

3440 POKE K764,K255 _ 

3450 POSITION K31, K22 i ? " MJTI.IT " 

3460 IF PEEK (K764)=K6 THEN POSITION K3 
l,K22i? " MENU "iGOSUB 650:G0T0 3380 
3470 IF PEEK(K764)=K7 THEN POSITION K3 
1,K22!? " MENU "IGOSUB 650:G0T0 3260 
3480 IF PEEK(K764)=K12 THEN POKE 1733, 
4!? CHR$ (125) iGOTO 210 
3490 GOTO 3460 

3500 GOSUB 4340iPOKE K54286,K64 

3510 X1-K3iY1 = K5 

3520 OPEN ttKl, K4,K0,FILE1$ 

3530 INPUT ttKl,QUESTS,ANSiS,ANS2S,ANS3 
$,ANS4$,ITS 

3540 if oII f s tS=■ ' ^SSSSSSSSSSSSSSSSSSSSSk 
VBHS5R " then 3730 

3550 C0UNT=C0UNT+1 

3560 IF PR=K1 THEN GOSUB 3650IG0T0 353 
0 

3570 IF PR=K2 THEN GOSU B 3650 _ 

3580 POSITION Xl,Yli? " ktH'lfJMI'H 
";COUNT 
3590 Yl=Yl+i 

3600 POSITION XI,Y1i? QUESTSiYi=Yi+iiP 
05ITI0N XI,Y1I? ANS1SIYl^Yl+liPOSITION 
Xi.Yli? ANS2S:Yl=Yl+i 
3610 POSITION XI,Y1I? ANS3S:Y1=Y1+1IPO 
SITION XI,Y1i? ANS4S:Y1=Y1+1iPOSITION 
XI,Y1i? ITS 
3620 Y1=Y1+1 

3630 IF Yl>K16 THEN POSITION K2,Y1I? " 
Press to continue, to end"iP 

OKE K54286,K192iG0T0 3770 
3640 GOTO 3530 

3650 LPRINT "Record NUMberi "jCOUNT 

3660 LPRINT QUESTS 

3670 LPRINT ANSlS 

3680 LPRINT ANS2S 

3690 LPRINT ANS3S 

3700 LPRINT ANS4S 

3710 LPRINT ITS 

3720 RETURN 

3730 CLOSE ttKl i POKE K54286,K192 


RD 3740 POSITION K4,Yl+li? "Press 
to return to MENU" 

JU 3750 IF PEEK(K53279)=K5 THEN ? CHR$C12 
5)iGOTO 210 
UL 3760 GOTO 3750 

EZ 3770 IF PEEK(53279)=K6 THEN GOSUB 4340 
!Yi=5iPOKE K54286,K64iGOTO 3640 
QK 3780 IF PEEK (K764) =K28 THEN CLOSE ttKl: 

? CHRS (125) iGOTO 210 
VU 3790 GOTO 3770 
NR 3800 E1=K0 
GI 3810 FOR I=K1 TO K31 

SJ 3820 IF I>K30 THEN I=I~K1iPOSITION X,Y 

: ? .. 

PE 3830 IF I<Ki THEN I=I+K1iPOSITION X,Yi 
? " ":X=X+K1:POSITION X,Yi? "■" 

LZ 3840 GET tt4,Q 

ZY 3850 IF Q=K126 THEM 3870:E1=K0 
HY 3860 IF Q=K155 THEN 3930 
MY 3870 IF Q=K126 THEN POSITION X,Yi? "." 
:X=X~K1:POSITION X,Y:? "i":I=I-Kl:El=K 

o 

JB 3880 IF I<K1 THEN 3830 

PJ 3890 IF Q=K126 AND I>K0 THEN QS(I)=" " 
iGOTO 3830 

RO 3900 POSITION X,Yi? CHRS(Q) 

VI 3910 IF I>K0 THEN Q$(I)=CHRS(Q) 

QA 3920 X=X+KliPOSITION X,Yi? "■"iNEXT I 

PG 3930 IF El-Kl THEN RETURN 

HG 3940 POSITION X,Yi? "."iRETURN 

01 3950 E1=K0 

GG 3960 FOR I=K1 TO K21 

SO 3970 IF I>K20 THEN I=I-K1iPOSITION X,Y 
i? " ":X=X-K1:E1=K1 

PV 3980 IF I<K1 THEN I=I+K1iPOSITION X,Y: 

? " ":X-X+K1:POSITION X,Yi? "I" 

UQ 3990 GET tt4, AN 

IM 4000 IF AN=K126 THEN 4030:E1=KO 
KY 4O10 IF AN=K155 THEN 4090 
SO 4020 IF I=K21 THEN I=I-K1iPOSITION X,Y 
:? " ":X=X-K1:POSITION X,Y:? "i":GOTO 
3990 

HZ 403O IF AN=K126 THEN POSITION X,Yi? ». 
"iX^X-KliPOSITION X,Yi? "■"iI=I~K1iEi= 
KO 

MV 4040 IF I<Ki THEN 3980 

MN 4050 IF AN = K126 AND I>K0 THEN AS (I)=" 
"iGOTO 3980 

GE 4O60 POSITION X,Yi? CHRS(AN) 

HU 407O IF I>K0 THEN AS(I)=CHRS(AN) 

QB 4080 X-X+KliPOSITION X,Yi? "■"iNEXT I 
PH 4O90 IF E1=K1 THEN RETURN 
GF 41O0 POSITION X,Yi? "."iRETURN 
TK 4110 FOR I=K1 TO K2 

CR 4120 IF I>K2 THEN I=I-K1iPOSITION X,Y: 
? " ":X=X-K1 

OR 4130 IF I<K1 THEN I=I+K1iPOSITION X,Y: 

? " ":X=X+Ki:POSITION X,Yi? "i" 

WQ 4140 GET tt4, CR 
MQ 4150 IF CR=K126 THEN 4180 
KZ 4160 IF CR=K155 THEN 4240 
BG 4165 IF CR <49 OR CR>52 THEN POSITION X 
,Yi? "1"iGOTO 4140 

AD 4170 IF I-K2 THEN I=I~K1iPOSITION X,Yi 
? " "iX^X-KliPOSITION X,Yi? "i":GOTO 4 
140 

TT 4180 IF CR=K126 THEN POSITION X,Yi? " 
":X-X-K1:POSITION X,Yi? "■"iI=I-K1iGOT 
0 4130 

EA 4190 IF I<Ki THEN 4130 

UU 4200 IF CR=K126 AND I>K0 THEN CS(I)=" 
"iGOTO 4130 

LX 4210 POSITION X,Yi? CHRS(CR) 

PX 4220 IF I>K0 THEN C$(I)=CHRS(CR) 

PQ 4230 X=X+K1iPOSITION X,Yi? "1":NEXT I 
El 4240 IF I<K3 THEN POSITION X,Yi? " " 

AV 4250 RETURN 

BL 4260 ? ttK2 J QUESTS i ? ttK2;ANSlSi? ttK2; AN 
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52$:? 8K2;AN53$:? BK2;ANS4$:? 8K2;IT$ 
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BB 4270 RETURN 
AM 4280 QUEST$="| 

3SSS " 

BU 4220 ? 8K2;QUEST$:? 8K2;AN51$:? 8K2;AN 
52$:? «K2;AN53$:? 8K2;AN54$:? 8K2jIT$ 


SW 4360 CL05E 8K1:CL0SE »K2 
AJ 4310 XIO 33, 8K1, K0,KO,FILE1$ 

FD 4320 XIO 32,8K1,K0,KO,"D:GAME.TMP,GAME 
. DAT 11 

AR 4330 RETURN 

YP 4340 FOR I=K5 TO K20:P05ITI0N Ki,I:? " 


":NEXT I;RETURN 

Y5 4350 POKE K1730,K52:FOR I = K1 TO K10:NE 
WT T'PflKF K1772 K5? 

OU 4360'FOR I = Ki TO K10:P05ITI0N KO,KO:? 

II 

■':F0R J = K1 TO K10: NEXT J 
XF 4370 POSITION KO,K0:? " 1:U<'1:1>3 

■ 'MMJiUlTffl ":FOR K=K1 TO K10:NEXT 

K 

FH 4380 NEXT I 
BJ 4390 RETURN 

II 4400 POSITION K1,K6:? "Quest? . 


DM 4410 POSITION Ki,K8:? "Answer 1 


EM 4420 position K1,K10:? "Answer 2 


HT 4430 POSITION Ki,K12:? "Answer 3 


KQ 4440 POSITION Ki,K14:? "Answer 4 


UI 4450 POSITION K1,K16:? "Correct nuKber 

II 

BC 4460 RETURN 

SY 4470 POSITION K2,K18:? "Input Question 
, Answers & Correct No." 

MB 4480 POSIT ION K6 ,K20:? "Use keys 

- press SHEEP ' 1 
BL 4490 RETURN 

YY 45O0 POSITION K0,K18:? "Input the Ques 
tion to locate the record" 

EY 4510 POSITION K0,K19:? "or use an 
to step through the file." 

PN 4520 POSITION K0,K20:? "Use the OPTION 
S below when the record" 

05 45 30 POS ITION K0,K21:? "is found. Pres 
s when changed." 

AY 4540 RETURN 

JC 4550 POSITION K1,K18:? "Use the tt 
keys to page up and down" 

HL 4560 POSITION K1,K19:? "until you find 
the line you wish to" 

VP 4570 position K1,K20:? "change. Make 
the change and press the" 

ZO 4580 POSITION Ki,K2i:? " l:UIU:i:i key. P 
ress <OPTION> when done" 

BN 4590 RETURN 

OX 4600 POSITION Ki,K22:? " CHANGE " 

TM 4610 POSITION Kll,K22:? " DELETE " 

NM 4620 POSITION K21,K22:? " NEXT " 

CU 4630 POSITION K31,K22:? " MENU " 

UV 4640 FOR I=K6 TO K16:P0SITI0N K0,I:? " 

":NEXT I:RETURN 
GT 4650 POSITION K0,K22:? " 

II ; RETURN 

JJ 4660 GOSUB 4810:POKE K1729,K4:GOSUB 48 
20:POKE K1730,K4 

KL 4670 GOSUB 4830:POKE K1731,K4:GOSUB 48 
40 : POKE K1732,K4 

ST 4680 POKE K1732,K52:FOR I=K1 TO K5:NEX 
T I:POKE K1731 / K52:F0R IrKl TO K5:NEXT 
I 

QV 4690 POKE K1730,K52:FOR I = K1 TO K5:NEX 
T IlPOKE K1729,K52 

MK 4700 GOSUB 4470:G0SUB 4650:GOSUB 4760: 


RETURN 

IM 4710 GOSUB 4810:POKE K1729,K4:GOSUB 48 
20:POKE K1730,K4 

JY 4720 GOSUB 4830:P0KE K1731,K4:GOSUB 48 
40:POKE K1732,K4 

TO 4730 POKE K1732,K132:FOR I=K1 TO K5:NE 
XT I:POKE K173i,K132:F0R I=K1 TO K5:NE 
XT I 

MZ 4740 POKE K1730,K132:FOR I=K1 TO K5:NE 
XT I:POKE K1729,K132 

AB 4750 GOSUB 45O0:GOSUB 4650:GOSUB 4600: 
RETURN 

ZD 4760 POSITION K1,K22:? "CONTINUE" 

LK 4770 POSITION Kll f K22:? " EDIT " 

SL 4780 POSITION K21,K22:? " PRINT " 

DO 4790 POSITION K31,K22:? " MENU " 

UN 4880 FOR I=K6 TO K16:P0SITI0N K0 f I:? " 
":NEXT I:RETURN 
FM 4810 POSITION K0,K18:? " 

" ! RETURN 

GT 4820 POSITION K0,K19:? " 

":RETURN 


AR 4830 POSITION K0,K2O:? " 

ii j RETURN 

BO 4840 POSITION K0,K21:? " 

" 1 RETURN 

YD 4850 FOR I=K18 TO K21SP05ITI0N K0,!:? 

ii 

":NEXT I:RETURN 

ZF 4860 GRAPHICS Kl:POKE K710,K0:P0KE K75 
2,Kl:POKE K708,148:POKE K764,K255 
DL 4870 POSITION 9,4:? »6;"A" 

PV 4880 POSITION K7,K8:? 86;"trivia" 

CQ 4890 POSITION K8,K12:? 86: "L- hl'14 " 

KK 4900 ? " Please wait - progran is loa 
ding" 

UH 4910 RUN "D:TRIV.BA5" 

OM 4920 INITrINIT+Kl:IF INIT>K1 THEN 501O 
TT 4930 GRAPHICS 0:P0KE K752,Ki:P0KE K710 
,KO:POSITION K10,K10:? "10 Seconds pie 
ase..." 

NN 4940 RESTORE 5150:FOR N=0 TO 99:READ X 
SPOKE 1664+N,X:NEXT N 
VE 4950 C0LTAB=1712:LUMTAB=C0LTAB+24 
JN 4960 REM START COUNTER AND RESET EVERY 
VBI 

PI 4970 X=U5R(1693) 

AA 4980 REM TELL ANTIC WHERE DLI CODE IS 
CX 4990 POKE 512,128 
PF 5008 POKE 513,6 

MS 5010 REM NOW SET INTERRUPT BITS 
JF 5028 D5TART=PEEKC560)+256*PEEK(561) 

AU 503O FOR N = DSTART + 6 TO D5TART + 28 
XG 504O POKE N,130 
HL 505O NEXT N 

VN 5060 REM SET INTERRUPT BIT ON FIRST LI 
NE 

TA 5O70 POKE DSTART+3,194 
DK 5080 REM ENABLE DLI 
C5 5090 POKE 54286,192 
MD 5100 PRINT CHR$ (125) 

FT 5110 REM HANDLE LINE 0 AS BACKGROUND 
TA 5120 POKE 710,PEEKtCOLTAB) 

JU 5130 POKE 709,PEEKtLUMTABJ 
AR 5140 RETURN 

NZ 5150 DATA 72,138,72,174,156,6,189,176, 
6,141 

HX 5160 DATA 10,212,141,24,208,189,200,6, 
141,23 

HS 5170 DATA 208,238,156,6,104,170,104,64 
,1,104 

NN 5180 DATA 169,7,160,168,162,6,32,92,22 
8,96 

JP 5190 DATA 169,1,141,156,6,76,98,228,8, 
4 

RL 520O DATA 4,4,4,4,4,4,4,4,4,4 
RO 5210 DATA 4,4,4,4,4,4,4,4,4,4 
TJ 5220 DATA 4,4,0,12,12,12,12,12,12,12 
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HB 5230 DATA 12,12,12,12,12,12,12,12,12,1 
2 

VY 5240 DATA 12,12,12,14,14,14,0,0,0,0 


Listing 2. 
BASIC listing. 


HH 10 REM A TRIVIA GAME BY Jan Iverson 
AZ 20 REM 

BL 30 K0=0:K1=1:K2=2:K3=3:K4=4:K5=5:K6=6: 
K7=7 : K8 = 8:K9 = 9:K1O=I0:Kil=ll:K12=12:K1 
3=13:K14=14:K15=15:K16=16:K17=I7 
KM 40 K18=i8:K19=19:K20=20:K21=21:K22=22: 
K29=29:K30=3O:K34=34:K49=49:K5O=50:K52 
=52:K60=60:K91=91:K10O=100:K2OO=2O0 
KI 50 K752=752:K35=35:K45=45:K53=53:K64=6 
4:K81=81:K96=96:K128=128:K540=540:K532 
79=53279:K764=764:K255=255 
IE 60 DIM A$ C30),B$ C20),C$ C20),D$ C20), E$ C 
20 J ,F$C1) , H$ Cl) ,RC3) 

UT 70 DIM A1SC6OO0),B1$C4000),C1$(4000),D 
1$C400O),E1$C4000),F1$C200),FILE1$C15) 
AJ 80 FILE1S=" ":FILE1$="D: 

GAME.DAT":SC0RE=K0:H5C0RE=K0 
PA 90 A=KO:B=K0:C=KO:D=KO:A1=KO:P=K0:Q=KO 
:R=K0:CNT=KO:CT=KQ:XX=K0:XXX=KO 
JO 100 CL05E ttKl: OPEN ttKl,K4,K0,FILEi$:OP 
EM 8K4,K4,K0,"K:":GOSUB 1350:P0KE 5377 
4,K64:POKE K16,K64 

XM HO G05UB 15O0:POKE K752,K1:GOSUB 760 
DO 120 POSITION K2, K22 : ? ,, 5TART = PLAY AGAI 
N OPTION=END SESSION":POKE 53774,K64: 
POKE K16,K64:SS=45:L1=K9 
AN 130 POKE 54286,192JG05UB 1150:GOSUB 11 
70:GOSUB 1190 

UA 140 POSITION K5,K3:? A$:SOUND K0,K45,K 
10,K8:FOR I=K1 TO K15:NEXT I 
OT 150 POSITION K10,K9i? B$:SOUND K0,K53, 
K10,K8:FOR I=K1 TO K15:NEXT I 
HO 160 POSITION K10,Kll:? C$:SOUND K0,K64 
,K10,K8:F0R I=K1 TO K15:NEXT I 
10 170 POSITION K10,K13:? D$:SOUND K0,K81 
,K10,K8:FOR I=K1 TO K15:NEXT I 
TC 180 POSITION K10,K15:? E$:SOUND K0,K96 
,K10,K8:F0R I=K1 TO K15:NEXT I:SOUND K 
0,KO,K0,KO 

QA 190 POSITION K6,K19:? " Select 1 

- 4 

HM 200 TM=K10:POKE K764,K255 
UP 210 GOSUB 1920 
XY 220 GET 8K4,AN5 

G5 230 IF AN5CK49 OR AN5>K52 THEN POKE K7 
64,K255:GOSUB 1920:GOTO 220 
BJ 240 H$=CHR$ CANS) 

UK 250 IF H$=F$ THEN SOUND KO,K45,K10,K12 
IFOR I=K1 TO K301 NEXT IlSOUND K0,K52,K 
10,K12IFOR I = Ki TO K30I NEXT I 
GX 260 IF H$=F$ THEN GOSUB 700IG0T0 420 
GM 270 GOSUB 710IGOTO 440 
VB 280 GOSUB 730 

PZ 290 POSITION K10,K3I? "RIGHT "JBJ" H 
RONG ""C 

PT 300 POSITION K6,K19I? "Choose one of t 
he options " 

MH 310 POSITION K2, K22 I ? " HC;1:1I " I POSITION 
K20 , K22 I ? 

MX 320 FOR I=K1 TO K30 

DV 330 IF PEEKCK53279)=K3 THEN POSITION K 
2,K22I? "START"I POSITION K20,K22l? "OP 
TION"I GOTO 890 

RK 340 IF PEEKCK53279)=K6 THEN POSITION K 
2,K22I? "5TART":P0SITI0N K20,K22l? "OP 
TION"IGOSUB 730 I GOTO 130 
GD 350 NEXT I 

CJ 360 POSITION K2,K22I? "START"I POSITION 


K20,K22I? "OPTION" 

NH 370 FOR I=K1 TO K30 

EF 380 IF PEEKCK53279)=K3 THEN POSITION K 
2,K22:? "START":POSITION K20,K22:? "OP 
TION":GOTO 890 

RU 390 IF PEEKCK53279)=K6 THEN POSITION K 
2,K22:? "5TART":P0SITI0N K20,K22:? "OP 
TION":GOSUB 730:GOTO 130 
FU 400 NEXT I 

MQ 410 GOTO 310 

OS 420 B=B+K1:SOUND KO,KO,K0,KO 
DD 430 GOSUB 2050:GOTO 280 

EG 440 C=C+Ki:SOUND KO,K91,K12,K10:FOR DE 
LAY=K1 TO K200:NEXT DELAY:SOUND K0,KO, 
KO, KO 

ZK 450 IF F$="i" THEN GOSUB 500 

FD 460 IF F$="2" THEN GOSUB 550 

BM 470 IF F$="3" THEN GOSUB 60O 

HF 480 IF F$="4" THEN GOSUB 650 

PV 490 GOTO 280 

EL 500 FOR I=K1 TO K4 

MP 510 POSITION K7,K9:? "EU":50UND K0,K96 
,K10,K8:F0R DELAY=K1 TO K50:NEXT DELAY 
RM 528 POSITION K7,K9:? "l.":SOUND KO,KO, 
KO,KO:FOR DELAY=K1 TO K50:NEXT DELAY 
GB 530 NEXT I 
ZJ 540 RETURN 
EV 550 FOR I=Ki TO K4 

KH 560 POSITION K7,K11:? "EJT’JSOUND K0,K9 
6,K10,K8:FOR DELAY=Ki TO K50:NEXT DELA 

Y 

AS 570 POSITION K7,Kli:? "2.":S0UND K0,KO 
,KO,KO:FOR DELAY=K1 TO K50:NEXT DELAY 
GL 580 NEXT I 
ZT 590 RETURN 
EM 600 FOR I=K1 TO K4 

MI 610 POSITION K7,K13:? "aj M :SOUND K0,K9 
6,K10,K8:FOR DELAY=K1 TO K50:NEXT DELA 

Y 

CT 620 POSITION K7,K13:? "3.":S0UND KO,KO 
,K0,KO:FOR DELAY=Ki TO K50:NEXT DELAY 
GC 630 NEXT I 
ZK 640 RETURN 
EH 650 FOR I=K1 TO K4 

PC 660 POSITION K7,K15:? "EH"!SOUND K0,K9 
6,K10,K8:F0R DELAY=K1 TO K50:NEXT DELA 

Y 

FN 670 POSITION K7,K15:? "4.":S0UND KO,KO 
,KO,KO:FOR DELAY=K1 TO K50:NEXT DELAY 
GM 680 NEXT I 
ZU 690 RETURN 

HX 700 POSITION 36,K15:? "U":RETURN 
BP 710 POSITION 36, K15 : ? " n " '• RETURN 
AJ 720 POSITION K5,K9:? " 

":POSITION K7,K13:? 
" ":RETURN 

GA 730 POSITION K3,K3:? " 

":POSITION K10,K9:? 

II II 

OS 740 POSITION K10,Kli:? " 

":POSITION K10,K13!? " 

II 

FT 750 POSITION K10,K15:? " 

":RETURN 

DM 760 FOR I=K0 TO K21:POSITION K0,l:? "| 


|":NEXT I 

HB 770 POSITION K0,K5:? "Hy 

BO 780 POSITION K0,K17:? " |- 

SP 790 POSITION K0,K21:? " 

TO 800 POSITION K0,KO:? " |—; 

GU 810 POSITION K12,Kl:? "rfl 
NJ 820 POSITION Kil,K6:? "[H 




LO 830 POSITION 35,K12i? " i—1 " 

DS 840 POSITION 35,K13:? ■■ I. . " 

DB 850 POSITION 35,K14:? " 

DW 860 POSITION 35,K15:? " " 

VC 870 POSITION 35,K16:? "I 1" 

ZU 880 RETURN 

OX 890 POKE 54286,192:G0SUB 1180:G0SUB 11 
70 

WZ 900 POSITION K3,K3:? " 

PO 910 POSITION K10,K3:? "RIGHT ";B;" W 
RONG 11 ‘ C 

KK 920 P=B+C:G=B/P:O=Q*100 

PD 930 IF SCOREDH5C0RE THEN HSCORE=SCORE: 

POSITION 34,K7:? HSCORE 
BN 940 IF 0<K50 THEN POSITION K7,K9:? "YO 
U NEED ft TRIVIft CLft5S":G0T0 1000 
UG 950 IF 0> = 75 THEN 970 

JI 960 IF 0> =K50 THEN POSITION K9,K9:? "P 
RETTY GOOD, STUDY MORE ":GOTO 1O0O 
UM 970 IF 0> =90 THEN 990 

Vft 980 IF 0> =75 THEN POSITION K9,K9:? "GR 
EftT - ALMOST PERFECT ":GOTO 1OO0 
IW 990 IF 0> = 90 THEN POSITION K5,K9:? "GR 
EAT!!! GO TO HEAD OF CLASS" 

DC 1000 G05UB 1760 

AG 1010 POSITION K7,K13:? "DO YOU WISH TO 

PLAY AGAIN" _ 

ZA 102O POSITION K2, K22 : ? : POSITIO 

N K20 , K22 : ? " tUJMilII " 

GO 103O FOR I=K1 TO K50 

SI 1040 IF PEEKtK53279)=K3 THEN GRAPHICS 
0 : END 

GG 1050 IF PEEKCK53279)=K6 THEN GOSUB 113 
0:GOSUB 720:B=K0:C=K0:GOSUB 1180:GOSUB 
1330:GOSUB 1490:G0SUB 1350:GOTO 130 
FH 1060 NEXT I 

ND 1078 POSITION K2,K22:? "START":POSITIO 
N K20,K22:? "OPTION" 

HD 1080 FOR I=K1 TO K50 

5X 1090 IF PEEKCK53279J=K3 THEN GRAPHICS 
0: END 

HP 1100 IF PEEKCK53279J=K6 THEN GOSUB 113 
OiGOSUB 730:B=KO:C=KO:GOSUB 1180:G0SUB 
1330!GOSUB 1490:GOSUB 1350:G0T0 130 
EU 1110 NEXT I 
NW 1120 GOTO 1020 

YP 1130 POSITION K2,K22:? "START":POSITIO 
N K20,K22:? "OPTION":RETURN 
PB 1140 GOTO 1130 

RR 1150 POSITION K7,K9:? "1POSITION K7 
,Kll:? "2." 

BB 1160 POSITION K7,K13:? "3POSITION K 
7,K15:? "4.":RETURN 

NA 1170 FOR I=K9 TO K15:P05ITI0N K9,I:? " 

"!RETURN 

AL 1180 FOR I=K9 TO K15:P05ITI0N K3,I:? " 

":NEXT I:RETURN 
NO 1190 CT=INT CRND(K0)*CNTJ 
MT 1200 IF CT=KO THEN 1190 
YZ 1210 IF XXX=CNT THEN 890 
LF 1220 IF XX=CNT-K1 THEN CT=CNT:XXX=CNT 
AM 1230 IF F1$CCT,CT)="X" THEN 1190 
CY 1240 A$=A1$tCT*K30-K29) 

CE 1250 B$=B1$CCT*K20~K19) 

CW 1260 C$=C1$CCT*K20-K19J 
DO 1270 D$=D1$CCT*K20-K19J 
EG 1280 E$=E1$(CT*K20-K19) 

LX 1290 F$ = F1$ tCT,CT) 

SS 13O0 Fl$ tCT, CTJ = ,, X" 

VK 1310 XX=XX+K1 
AL 1320 RETURN 

ZO 1330 A=KO:B=K0:C=K0:D=K0:A1=K0:P=K0:Q= 
KO:R=K0:CT=K0 
AR 1340 RETURN 

DI 1350 INPUT tt Kl,ft$,B$,C$,D$,E$,F$ _ 

00 1360 IF a ^-"^SSSSSSSSSSSSSSSSSSSSM^ 
THEN 1460 


KV 1370 CNT=CNT+K1 

IZ 1380 IF CNT=200 THEN 1460 

KD 1390 AlStCNT*K30-K29)=A$ 

IZ 140O B1$CCNT*K20-K19)=B$ 

KF 1410 C1$CCNT*K20-K19)=C$ 

LL 1420 D1$(CNT*K20-K19)=D$ 

MR 1430 El$CCNT*K20-K19)=E$ 

LX 1440 F1$CCNT,CNT)=F$ 

RI 1450 GOTO 1350 

OP 1460 SC0RE = K6: POSITION K34,K6:? " 

":POSITION K34,K6:? "0" 

AW 1470 CLOSE ttKl 
BF 1480 RETURN 

GY 1490 POKE 54286,64:CT=0:CNT=O:XX=K0:XX 
X = K0:CLOSE ttKl: OPEN ttKl, K4, KO, FILE1$ : R 
ETURN 

YH 150O GRAPHICS K0:POKE 752,K1:P0KE 7I0, 
KO:POSITION K10,K10:? "20 Seconds plea 
se . . ." 

CF 1510 FOR N=K6 TO 99:READ X:POKE 1664+N 
X:NEXT N 

UK 1520 C0LTAB=1712:LUMTAB=C0LTAB+24 
OL 1530 X = USR (1693) 

BX 1540 POKE 512,128 
JJ 1550 POKE 513,K6 

JX 1560 DSTART=PEEK(560)+256*PEEKC561) 

MT 1570 FOR N=D5TART+K6 TO DSTART+28 

XY 1580 POKE N,130 

ID 1590 NEXT N 

SN 1600 POKE DSTART + 3,194 

CC 1610 POKE 54286,192 

MP 1620 PRINT CHR$ (125) 

TJ 1630 POKE 710,PEEK(COLTAB) 

KD 1640 POKE 709,PEEK(LUMTAB) 

BA 1650 RETURN 

01 1660 DATA 72,138,72,174,156,6,189,176, 
6,141 

IG 1670 DATA 10,212,141,24,208,189,200,6, 
141,23 

ZU 1680 DATA 208,238,156,6,104,170,104,64 
,18,104 

NW 1690 DATA 169,7,160,168,162,6,32,92,22 
8,96 

NO 1700 DATA 169,1,141,156,6,76,98,228,14 
4,144 

MM 1710 DATA 144,144,144,144,196,196,196, 
196,196,196 

PW 1720 DATA 196,196,196,196,196,64,64,64 
,64,64 

IS 1730 DATA 2,0,12,12,12,12,12,12,12,12 
WK 1740 DATA 12,12,12,12,12,12,12,12,12,1 

2 

AA 1750 DATA 12,12,12,12,6,6,0,0,0,0 

RM 1760 RESTORE 1880 

EP 1770 FOR I=K1 TO 24 

5K 1780 READ PO,PI,P2,P3,DUR 

WW 1790 POKE K540,DUR 

IM 1800 SOUND K0,P0,K10,K12 

JS 1810 SOUND K1,P1,K10,K12 

KY 1820 SOUND K2,P2,K10,K12 

ME 1830 SOUND K3,P3,K10,K12 

UR 1840 IF PEEKtK540J<>K0 THEN 1840 

FU 1850 NEXT I 

PF I860 SOUND K0,K6,K0,K0:SOUND K1,K0,K0, 
KO:SOUND K2,K0,K0,K0:SOUND K3,KO,K0,KO 
BK 1870 RETURN 

AN 1880 DATA 108,0,0,0,10,102,0,0,0,10,96 
,243,0,0,10,60,121,162,0,20,96,0,0,0,1 
0,60,162,0,0,20,96,121,136,0,20 
US 1890 DATA 60,0,0,O,20,60,182,O,O,20,60 
,121,144,0,20,60,193,0,0,10,60,193,0,0 
,10,53,121,162,0,10,50,121,162,0,10 
WQ 190O DATA 47,162,0,0,10,60,162,0,0,10, 
53,96,121,0,10,47,96,121,0,10,47,162,0 
,0,10,64,162,0,0,10,53,91,128,0,20 
IJ 1910 DATA 60,96,121,0,20,60,162,0,0,20 
,0,243,0,0,30 

GC 1920 POSITION K3,K6:? "TIME=":POSITION 
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Trivia 


continued 


28, K6 : ? "SCORED":POSITION 25,K7 : ? "HI 
-SCORE-":POSITION K8,K6:? TM 
IU 1830 POKE K540,K60 

KV 1940 IF PEEK(K54O)=K0 THEN TM=TM-K1:P0 
SITION K8,K6:? " ":P05ITI0N K8,K6:? T 
M: SOUND K0,K128,K10,K10:GOTO 1980 
5Y 1950 IF PEEK(K764) OK255 THEN 1990 
KJ I960 IF TM=K0 THEN 2O10 
UF 1970 GOTO 1940 

KH 1980 FOR J=K1 TO K2:NEXT J:SOUND K0,K0 
,K0,KO 

KK 1990 IF PEEKCK764) OK255 THEN ONS=PEEK 
(764):RETURN 
SG 2000 GOTO 1930 

SB 2O10 SOUND K0,K96,K1O,K12:GOSUB 2030:0 
NS=53:P05ITI0N K8,K6:? " ":POP :GOTO 
240 

OG 202O RETURN 

JR 2030 FOR K-Kl TO K30:NEXT K 
NH 204O SOUND K0,KO,K0,KO:RETURN 
EF 2050 IF TM=KO THEN RETURN 

ZY 206O TM=TM-K1:POSITION ... 

SITION K8,K6:? TM:SOUND K0,K128,K10,K6 
:FOR I-Kl TO K3:NEXT I 
SS 207O SOUND KO,K0,K0,K0 
FY 2080 FOR I=K1 TO K10:NEXT I 
KB 2090 SC0RE-SC0RE+K1:POSITION K34,K6:? 
SCORE:SOUND K0,162,K10,K6:FOR I = K1 TO 
K3:NEKT I:SOUND K0,KO,K0,KO 
FP 210O FOR I=K2 TO K10:NEKT I 
PS 2110 GOTO 2O50 
01 2120 RETURN 

• 
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by Jerry Lemaitre 


In this game, you’re the lowly Anthort, struggling to de¬ 
fend your planet against the evil Zorcron empire. If the 
rock-eating Zorcrons manage to penetrate your defenses, 
they’ll gobble up your entire planet. To prevent this, you’re 
armed with the mystical Fyreballs, which ignite anything 
in their path. You may have three of these flying at one 
time, but shoot carefully! 

You’re not the only one with weapons, though. The Zor¬ 
crons have discovered machinery! There are three types 
of machines that they build with the iron ore they can’t 
digest. 

Their Eggbarge is a bulky space vessel which incubates 
Zorcron eggs during flight. When it reaches its destina¬ 
tion, the newly hatched Zorcrons help to replenish the 
fighting troops. 

A Whizzer is a warp-speed vessel which transports and 
launches the most deadly Zorcron offense of all—the Zing- 
bomb. You’ll know the Zingbombs when you see them. 
These menaces head straight for your planet at incredible 
speeds. On impact, they create a shock wave that will pul¬ 
verize your delicate Anthortian insides. 


Now, don’t get me wrong. This isn’t just another one¬ 
dimensional shoot-’em-up. Constantly changing colors and 
totally animated characters add to the visual appeal. You 
can move your Anthort in eight (count ’em, eight) direc¬ 
tions. There’s also horizontal wraparound, so you’re not 
confined by the sides of the screen. 

Even though Invasion III is written in BASIC, there can 
be as many as twenty-three characters on-screen at a 
time—at speeds that’ll make you sweat! Enjoy! H 

Jerry Lamaitre has owned his Atari 400 for four years. 
He’s very interested in robotics and artificial intelligence, 
and sells his own programs and accessories as a small 
mail-order business. 


The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 


Listing 1. 

BASIC listing. 

UK 180 GOSUB 570 

MP 110 SC=K0:MEN=K2:G05UB 720 


ATARI 8-BIT EXTRA 


ANALOG COMPUTING 63 



Invasion III continued 


AE 120 POKE P+SCR,K2:IF STICK CKO)=K15 AND 
STRIGCKO) THEN 120 

QD 130 FOR Z=K0 TO K15:P1 = P:S=MCSTICKCKO) 
) :P=P + S:P = P-S*CP>439 OR P<40) 

00 140 C=INTCK5*RNDCK0))ISETCOLOR C,Z,K8* 
CC <K4) 

PN 150 CH= NOT CH:POKE 756,CHCCH):L=PEEKC 
P+5CR):POKE P1+SCR,K0:P0KE P+SCR,K2:IF 
L AND L<>K2 THEN 410 

XV 160 L=K0:IF NOT 5TRIGCK0) THEN GOSUB 
330 

ZZ 170 FOR A=KO TO K2:F1=FCA) 

RJ 180 IF FI THEN POKE Fl+SCR,KO:Fi=Fi~K2 
O:FL=PEEKCF1+SCR):IF FL THEN F=F1:F1=K 
0:GOSUB 350 

EB 190 IF FI THEN POKE Fi+SCR,132 
SZ 200 F CA)=Fi:NEXT A 

SB 210 IF ZPCZ) THEN ZP1=ZPCZ)!ZPCZ)=ZPCZ 
)+INT CK3*RND CKO)+19) :L-PEEKCZPCZ)+SCR) 
:POKE ZP1+5CR,K0:P0KE ZPCZ)+SCR,195 
HB 220 IF L THEN GOSUB 460 

ZB 230 IF NOT E THEN IF RNDCKOXO.Ol THE 
N E = K20:EM= K1:S0UND Kl,E,12,K8:IF RND C 
K0XO.5 THEN E=39:EM=~K1 
QG 240 IF E THEN E=E+EM:POKE E+SCR,K6:P0K 
E E-EM+5CR,KO:IF E=K20 OR E=39 THEN PO 
KE E+SCR,KO!E-KO:SOUND Ki,K0,K0,KO 
ZN 250 IF E THEN IF E>21 AND E<38 THEN IF 
NOT ZPCE-22) THEN ZPCE-22)=E+K20:POK 
E ZPCE~22)+5CR,195:S0UND K1,E,12,K8 
JD 260 IF W-KO THEN IF RNDCKOXO.Ol THEN 
W-K20:WM=K1:SOUND K2,W,10,10:P0KE 77,K 
0:IF RNDCKO)<0.5 THEN W=39:WM=-K1 
KN 270 IF W THEN W=W+WM:POKE H+SCR,133:P0 
KE W-WM+SCR,KO:IF W=K20 OR W=39 THEN P 
OKE W+SCR,KO:W=K0:SOUND K2,K0,K0,K0 
VX 280 IF W THEN IF NOT B AND RNDCKOXO. 

06 THEN B=W+K20:SOUND K3,B,K4,12 
ML 290 IF B THEN SOUND K3,B,K4,12:B=B+K20 
:BL-PEEKC5CR+B):POKE SCR+B,71:POKE SCR 
+B-K20,KO 

XN 300 IF B THEN IF BL=K2 OR B>439 THEN 5 
OUND K3,K0,K0,K0:POKE SCR+B,KO!B = KO:GO 
TO 410 

FZ 310 IF B THEN IF BL=132 THEN FL=71:G0S 
UB 390 

KE 320 NEXT Z:GOTO 130 

ZK 330 FOR J-KO TO K2:IF NOT FCJ) THEN F 
OR I=KO TO 31:POKE 53761,I:NEXT I:FCJ) 
=P-K20:RETURN 
NB 340 NEXT J:RETURN 

DC 350 IF FL-195 THEN FOR I = KO TO K15:IF 
ZP Cl)-F THEN SC=SC+25:G0SUB 530:Z=I:G0 
SUB 460 

VZ 360 IF FL=195 THEN NEXT I:RETURN 
VN 370 IF FL=133 THEN SC=SC+1O0O:GOSUB 53 
0:G=W:W=K0:SOUND K2,KO,KO,KO:GOTO 550 
FW 380 IF FL = K6 THEN SC=5C+1000:GOSUB 530 
:Q=E:E=KO:SOUND K1,K0,K0,K0:G0T0 550 
NL 390 IF FL = 71 THEN SC=SC+500:GOSUB 530: 

Q=B:B=KO:SOUND K3,KO,KO,KO:GOTO 550 
ZA 400 RETURN 

EH 410 POKE P+SCR,K8:F0R I = Ki TO K20:S0UN 
D K3*RNDCKO),200*RNDCKO),12,K8:NEXT I 
ZV 420 MEN-MEN _ K1:P0KE P+SCR,9:F0R I=K1 T 
0 K20 

YC 430 SOUND K2*RNDCKO),200*RNDCKO),12, K8 
: NEXT i:for I=K0 TO K3:S0UND i,ko,ko,k 
OINEXT I 

XJ 440 POKE P+SCR,KO:FOR I=K0 TO 100:SETC 
OLOR K4*RND CKO),K15*RND CKO),K15*RND CKO 
)!NEXT I:IF MEN <K0 THEN 500 
CY 450 GOSUB 720:G0T0 120 
YL 460 IF ZPCZ)=KO OR L = 195 THEN RETURN 
NX 470 IF L = 74 OR L=75 OR L=K2 THEN 410 
GU 480 POKE ZPCZ)+SCR,200:F0R I = KO TO K15 
JSOUND K0,K0,K4,I:NEXT IiPOKE ZPCZ)+SC 
R, 201 


YU 490 FOR I=KO TO K15:S0UND K0,K0,K5,I:N 
EXT IIPOKE ZPCZ)+SCR,KO:ZPCZ)-K0:RETUR 

N 

UW 50O GOSUB 720:POSITION K5,K6:? ttK6;"6a 
□apovaa!": POSITION K5, K8 : ? OK6 : “PfTnsS 
G0rE ,, :POKE 17 + SCR, KO 
DI 510 IF STRIGCKO) THEN 510 
LZ 520 GOTO 110 

UI 530 POSITION K4,23:? ttK6jSC:IF SC>HSC 
THEN H5C=SC!P0SITI0N 14,23:? UK6JHSC 
ZJ 540 RETURN 

XO 550 SOUND K2,34,10,10:FOR I=KO TO 16:F 
OR J=KO TO K1:POKE SCR+Q,K8+J:SOUND K1 
,I+J,10,11+J:NEXT J:NEXT I 
FU 560 POKE SCR+Q,KOlSOUND Kl,KO,KO,KO:SO 
UND K2,K0,K0,K0:RETURN 
EL 570 Kl=i:K2=2:K3=3:K4=4:K5=5:K6=6:K8=8 
!K15=15:K2O=20 

YN 580 GRAPHICS 18:P05ITI0N K4,K2:? ttK6j" 
InCESiCiE] 1 iD":POSITION 9,K5:? «K6;"by" 

!POSITION K3,7 

ZX 590 ? 8K6; "JERRY LEMAITRE":COLOR 138 : P 
LOT KO,KO:DRAWT0 19,K0:DRAWTO 19,11:DR 
AWTO KO,11:DRAWT0 KO,KO 
KQ 600 DIM CH CK1),MCK15),ZPCK15),F CK2), J$ 
C39):MCK5)=21:MCK6)=-19:MC7)=K1:MC9)=1 
9:MC10)--21:MC11)--K1:MC13)=K20 
AB 610 MC14)=-K20:MCK15)=K0:F0R I = K1 TO 3 
9:READ A:J$Cl)=CHR$CA):NEXT I 
TK 615 DATA 104,104,133,215,104,133,214,1 
04,133,217,104,133 

LU 620 DATA 216,104,133,218,104,170,160,0 
,177,214,145,216,200,208,4,230,215,230 
,217,202,208,242,198,218,16,238,96 
DX 630 CHCKO)=PEEKC106)-K8:CHCK1)=CHCK0)- 
K8:I = USR CADR CJ$),57344,CH CKO)*256,511) 
XW 640 A=CHCK0)*256:FOR I = K0 TO 95:READ B 
■.POKE A + I,B:FOR J-KO TO K3:SETC0L0R J, 
K15*RND CKO),J + J + K4:NEXT J:NEXT I 
HA 650 I = USRCADRCJ$) ,CH CKO)*256,CH CK1)*25 
6,511) 

HY 660 A = CH CK1)*256:FOR 1 = 16 TO 63:READ B 
:POKE A+I,B:NEXT I:RETURN 
QW 670 DATA O,O,0,0,0,O,O,0,7,15,30,56,48 
,0,192,192,129,90,60,219,126,36,72,144 
,129,129,165,219,126,60,36,36 
01 680 DATA 0,20,8,20,8,0,8,0,255,129,189 
,181,181,181,133,253,60,102,255,24,255 
,171,255,126 

NO 690 DATA 0,14,24,24,24,60,60,24,0,34,2 
0,104,22,40,68,0,65,34,0,192,3,0,68,13 
0,0,16,60,127,255,255,255,0 
00 700 DATA 0,0,65,225,251,255,255,0,66,9 
0,60,219,126,36,18,9,0,0,36,90,255,189 
,153,153,0,8,20,8,0,8,0,8 
MA 710 DATA 191,161,173,173,173,189,129,2 
55,60,102,255,24,255,213,255,126,0,112 
,24,24,24,60,60,24 

OK 720 GRAPHICS 17:P0SITI0N KO,KO:? ttK6;" 
TTP/j V?cu:»><— ■■: position Kl,23:? 
ttK 6 :' ' ffB 1 ■; SC:P 0SIT10 N 10,23 
ID 730 ? ttK 6 ; J HSC : POKE 756,CHCK0):F 

OR I=KO TO 19:COLOR INTCK2*RNDCKO)+10) 
CK 740 PLOT 1,22:SOUND KO,I+I+I,10,10:NEX 
T I 

ZO 750 SOUND K0,K0,K0,KO:5CR=PEEKC88)+256 
*PEEKC89):P=350:F0R I=KO TO K15:ZPCI)= 
KO:NEXT I:IF MEN THEN POKE 17+SCR,130 
ZF 760 IF MEN=K2 THEN POKE 18+SCR,130 
CO 770 B=K0:W=K0:E=K20:EM=K1:FCK0)=K0:FCK 
1)=K0:FCK2)=K0:RETURN 

• 
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by David Huff 

The game of Dragon Chase depends more on a sharp 
mind than on quick reflexes. The object here is to rescue 
the princess before an evil dragon can reach her. 

In order to save the princess, you must remove the black 
castle which surrounds her. To accomplish this feat, you 
must find certain objects—such as diamonds, swords and 
rings. Unfortunately, these items are hidden from view un¬ 
til you move over them. And, if the dragon reaches your 
fair lady, the game is over. 

The game rules. 

You begin each level in the lower left corner, marked 
by a square pink cursor. As you move with the joystick, 
objects hidden below become visible. A row of the things 
you must find is seen at the upper left, and you must un¬ 
cover the objects in the order shown. When you locate one, 
stay over it until its color changes, then move on to find 
the next one. After you’ve retrieved all the required items, 
the castle is automatically removed. To rescue the prin¬ 
cess and advance to the next level, move your pink cur¬ 
sor over her. 

Also hidden are various objects which can help or hin¬ 
der you. The squares can make the whole field visible for 
a few seconds, giving you time to locate other needed 
items. 

Wild cards are also randomly hidden. These are marked 


with a W. Finding one is the same as locating the next 
object you were searching for. 

Also hidden are dragons. If you hover above one, your 
movement is stopped—and the dragon takes another step 
toward the princess. A tombstone marks this event. Some¬ 
times the dragon may be sleeping, in which case you can 
step right over him. 

For help in finding things, a scanner is provided. Press 
the fire button to activate it, and a portion of the screen 
around you becomes visible. Using the scanner costs you 
10 points and advances the dragon one step. 

Each round of Dragon Chase has five levels. On higher 
levels, the dragon moves faster—while you must find more 
objects. 

Scores are tallied as follows. You receive 200 points for 
saving the princess, or 100 points for finding an object. 
You lose points in this way: 50 off for finding a dragon, 
5 are subtracted for advancing the dragon, and using the 
scanner eats up 10. 

About the program. 

Dragon Chase takes advantage of Atari’s character col¬ 
or assignment in graphics mode 2. The same character is 
easily displayed in different colors, and there are sixty- 
four characters in the graphics 2 character set. You have 
a choice of four colors. In choosing one, a specific num¬ 
ber is added to the character number, as shown in Figure 1. 

To display a character, POKE its number into the dis- 
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Dragon ChaSG continued 


play memory,-adding the indicated amount to choose a col¬ 
or register. Character numbers are shown on page 55 of 
Atari’s BASIC Reference Manual. 


Figure 1. 



COLOR REGISTER 



Character No. 

708 709 

710 

711 

0-63 . 

. +0 +64 

+ 128 

+ 192 


Dragon Chase uses a redefined character set at Line 
1000. Line 340 pokes random characters into display mem¬ 
ory. Their number has 192 added to it, specifying color 
register 711. 

Similarly, Line 280 randomly selects the characters for 
you to find; by adding 128 to them, color register 710 is 
chosen. 

The princess awaits your help. H 


David Huff, a D.D.S., is currently studying for a specialty 
degree in Orthodontics. He’s had his Atari 1200XL for 
three years and is currently working on a program for or¬ 
thodontic x-ray analysis. 


The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 


Listing 1. 

BASIC listing. 

XV 10 REM DRAGON CHASE 
RA 15 REM DAVID E. HUFF 

LF 20 GRAPHICS 18:PMBASE-PEEKC106)-16:CH5 
ET=256*CPMBASE+8) 

ST 25 DIM E$ C50) 

HS 30 DM=PEEKC88) +256*PEEK C89) JDL-PEEKC56 
0)+256*PEEKC561) 

RL 40 P0=PMBA5E*256+512:P1=P0+128:P2=P1+1 
28:P3-P2+128 

AT 50 POKE 54279,PMBA5E:POKE 53277,3:P0KE 
559,46 

OV 60 POKE 53257,1:P0KE 53258,1:P0KE 5325 
9,3 

II 70 POKE 712,20:POKE 709,12:P0KE 708,20 
0 

MU 80 POSITION 4,5:? tt6;"dragon chase" 

WK 90 G05UB 1000:GOSUB 1500 
PP 100 REM 5ET UP DISPLAY LIST INTERRUPT 
CD 110 POKE DL+15,135:POKE DL+16,160:POKE 
DL + 17,7:POKE DL+18,65 
BP 120 POKE DL+19,PEEKC560J:P0KE DL+20,PE 
EK C561) 

BM 130 POKE 512,197:POKE 513,6:P0KE 54286 
,192 

KS 140 REM INITIAL VALUES 

HO 150 DIF=50:SCORE=0:LEVEL=0:FIELD=2:R = 1 
VV 160 REM START NEW LEVEL HERE 
AK 170 CLEAR=USRCADRCE$),PMBASE*256) 

M0 180 LEVEL=LEVEL+1:FIELD=FIELD+1:IF FIE 
LD-8 THEN G0SUB 2400 
UB 190 POSITION 0,01? »6;"*" 

PZ 200 POSITION 1,11:? tt6j"ROUND ";R;" 

LEVEL ";LEVEL 
AI 210 REM COLORS 

CG 220 POKE 623,O:POKE 705,0:POKE 706,88: 
POKE 707,34:POKE 708,12 


MB 230 POKE 709,200:POKE 710,120:POKE 711 
, 20:POKE 712,12 
OU 250 REM SET UP FIELD 

BM 260 FOR I-20 TO 219:P0KE DM+I,1+192:NE 
XT I 

TH 270 FOR I-O TO FIELD-1 

Cl 280 POKE DM+I*2,INTIRNDC0)*10) +2 + 128 

GK 290 NEXT I 

TE 3O0 FOR 1=0 TO 60 

OU 310 RP=INTCRNDCO)*20O)+20 

01 320 RC = INT CRND C0)#12)+2 + 192 

YF 330 SOUND 2,RP,10,4 

SX 340 POKE RP+DM,RC 

GD 350 NEXT I 

WV 360 SOUND 2,0,0,0 

NE 370 FOR 1=1 TO 10:RPD=INTIRNDCO)*200)+ 
20 : POKE DM+RPD,15 + 192:NEXT I 
PR 380 FOR 1=1 TO 3:RPW=INTCRNDCO)*200)+2 
0:POKE DM+RPW,20+192:NEXT I 
TB 390 POKE 712,20:REM HIDE CHARACTERS 
UP 40O GOSUB 190O 

TT 410 GOSUB 17O0 

IM 450 C0UNT=0:CHR=PEEKCDM+COUNT)-128 
CD 460 DRAGON=0!HID=0 
T5 470 GOSUB 2500 

JZ 500 REM START MAIN PROGRAM LOOP 
VD 505 POKE 53278,1 

MU 510 POKE 1790,1 

XU 515 IF PEEK C53261)=4 THEN 20OO 
MN 520 MEM=DM+20+2O/8*CPEEKC203)-23)+CPEE 
KC205)-48)/8 

IC 525 CHR1=PEEKCMEM)-192 
ZF 530 IF CHR1=CHR THEN GOSUB 700 
ZD 535 IF CHR1=20 THEN GOSUB 700 

BW 540 IF CHR1=15 THEN GOSUB 800 

CJ 545 IF CHR1=-174 THEN GOTO 900 
EZ 550 IF CHRi=12 THEN POKE 712,16:F0R 1= 
O TO 350:SOUND 0,350-1,10,10:NEXT I:PO 
KE 712,20:POKE MEM,12+128 
OV 555 IF 5TRIG C0)=0 THEN GOSUB 2100 
LL 560 L00P=L00P+1:P0KE 77,O 
HT 570 IF LOOP<DIF THEN 515 
CP 580 LOOP=0:GOSUB 6O0 
OJ 590 GOTO 515 
HV 600 REM MOVE DRAGON 

KV 610 FOR 1=15 TO 17:P0KE DM+20+DRAG0N,I 
:F0R J = 0 TO 15:SOUND 2,100,12,10:NEXT 
J : SOUND 2,100 + I,12,20-I:NEXT I 
YR 620 FOR 1 = 16 TO 15 STEP -l’.POKE DM+20 + 
DRAGON,I:F0R J=0 TO 15:SOUND 2,100,12, 
10 : NEXT J.-SOUND 2,100 + 1,12,20-1 
GC 630 NEXT I 

RW 640 FOR 1=0 TO 15:NEXT I 
BC 650 SC0RE=SC0RE - 5:GOSUB 25B0:S0UND 2,0 
, 0,0 

RM 660 POKE DM+20+DRAGON,19!POKE DM+21+DR 
AGON,15 

OV 670 DRAG0N=DRAG0N+1 

NT 680 IF DRAG0N=18 THEN POP :GOTO 2200 

ZU 690 RETURN 

HD 700 REM YOU FOUND ONE 

MU 710 IF CHR + 64<0 THEN RETURN 

YL 720 SOUND 8,10,10,10 

PH 730 POKE DM+COUNT,CHR+64:POKE MEM,CHR+ 
64 

OB 740 C0UNT=C0UNT+2 
MV 750 CHR=PEEKCDM+COUNT)-128 
UG 755 GOSUB 2500 
PK 760 FOR I=0 TO 20:NEXT I 
UV 770 5CORE=SCORE+100:GOSUB 250O:SOUND 0 
, 0 , 0,0 

PX 780 HID=HID+1:IF HID=FIELD THEN GOSUB 
180O 

ZV 790 RETURN 

VD 8O0 REM YOU FOUND A DRAGON 
MI 810 POKE 1790,0 

JR 820 FOR 1=15 TO 17:P0KE MEM,I:FOR J=0 
TO 15:SOUND 2,100,12,10:NEXT JlSOUND 2 
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,100 + 1,12,20-HNEXT I 
TP 825 GOSUB 6O0 

NO 830 FOR 1-16 TO 15 5TEP -i:POKE MEM,I: 
FOR J = 0 TO 15:SOUND 2,100,12,10:NEXT J 
.■SOUND 2,100 + I,12,20-I:NEXT I 
50 850 FOR 1—0 TO 15:NEXT I 
VI 860 SC0RE=SC0RE-50:G05UB 2500 
OG 870 POKE MEM,14:SOUND 2,0,0,0 
NL 880 POKE 1790,1 
ZW 890 RETURN 

WO 90O REM YOU SAUED PRINCESS 
MJ 910 POKE 1790,0 

GD 920 FOR 1=1 TO 10:SOUND 0,10*1,10,1 
IR 930 FOR K=1 TO 5:NEXT K:POKE 712,20 
RU 940 FOR J = 14 TO O STEP -1 
GC 950 SOUND 0,1O,10,J 
ZN 960 SOUND 1,14,10,J+2:NEXT J 
XW 970 POKE 712,12:SCORE=SCORE+20!GOSUB 2 
500:NEXT I 

EE 980 SOUND O,O,O,O:SOUND 1,0,0,0 
OU 990 GOTO 160 

JB 995 REM REDEFINED CHROCTER SET 
II 1000 FOR I=0 TO 511:POKE CHSET+I,PEEKC 
57344+1):NEXT I 
NT 1010 POKE 756,CH5ET/256 
UG 1020 REOD NIIF N=-l THEN RETURN 
DZ 1030 FOR I=0 TO 7:REOD D:POKE CH5ET+N* 
8+1,D:NEXT I:GOTO 1020 
GO 1035 DOTO 0,O,0,O,0,O,0,0,0 
OG 1040 DOTO 1,0,0,0,24,24,0,0,0 
TO 105O DOTO 2,0,126,90,126,126,36,60,0 
NT 106O DOTO 3,73,42,28,119,28,42,73,0 
GI 107O DOTO 4,165,66,165,24,24,165,66,16 
5 

YK 1080 DOTO 5,0,24,60,126,126,60,24,0 
LP 1090 DOTO 6,0,24,36,66,66,36,24,0 
ZG 1100 DOTO 7,0,2,4,8,80,32,80,0 
YN 1110 DOTO 8,0,54,127,127,62,28,8,0 
OB 1120 DOTO 9,195,195,36,24,24,36,195,19 
5 

ZR 1130 DOTO 10,0,224,160,255,255,170,234 
,0 

ZG 1140 DOTO 11,60,126,219,255,90,102,60, 
O 

IB 1150 DOTO 14,60,66,153,189,153,153,129 
,255 

RE 1160 DOTO 15,112,208,255,170,213,127,0 

,0 

FR 1170 DOTO 16,112,208,255,234,128,213,1 
27,0 

SF 1180 DOTO 17,112,208,255,234,128,208,1 
17,31 

ZY 1200 DOTO 18,60,60,24,126,24,24,36,66 
OK 1210 DOTO 19,24,60,127,255,255,254,68, 
68 

KI 1220 DOTO 12,126,129,153,165,165,153,1 
29,126 

DD 1230 DOTO 13,90,189,90,231,231,90,189, 
90 

RU 1240 DOTO 20,0,195,195,219,255,231,195 
,0 

DU 1250 DOTO 21,8,0,0,240,152,240,176,152 
GH 1260 DOTO 22,0,0,0,234,170,234,138,142 
HI 1270 DOTO 23,0,0,0,138,200,170,154,138 
RR 1280 DOTO 24,0,0,0,0,0,8,0,0 
GS 1290 DOTO 25,0,0,134,135,126,126,180,6 
8 

EK 1300 DOTO -1 

ZG 1495 REM UBLONK ROUTINE 

EE 1500 FOR 1=0 TO 250JREOD DiPOKE 1536+1 

,0 

OR 1510 SOUND 2,D,10,4:NEXT I 
FK 1515 FOR 1=1 TO 42:RE0D D:E$Cl,I)=CHR$ 
CD) : NEXT I 

HR 1520 FOR 1=3 TO 15 
LK 1530 SOUND 2,100,12,1 
UZ 1540 FOR J=15 TO 17 

WX 1550 POKE DM+1O0+I,J:FOR N=0 TO 10:S0U 


ND 1,200,12,8:NEXT N 
HU 1568 POKE DM+10O+I,19:SOUND 1,0,9,0 
XB 1570 NEXT JlNEXT I 
JC 1580 SOUND 2,0,0,0 
BK 1590 RETURN 

OK 16O0 DOTO 216,169,0,141,3,218,173,13,2 
08,288,8,173,255,6,240,6,206,255,6,76, 
98,228,169,15,141 

GP 1610 DOTO 255,6,173,254,6,240,243,174, 
120,2,224,7,240,14,224,11,240,24,224,1 
4,240,37,224,13,240 

SS 1620 DOTO 50,208,222,165,205,281,200,2 
40,216,24,165,205,105,8,76,76,6,165,20 
5,201,48,248,202,56,233 
BL 1638 DOTO 8,133,205,141,2,208,76,138,6 
,165,203,201,15,240,185,32,123,6,56,16 
5,203,233,8,76,115 

LI 1640 DOTO 6,165,203,201,95,240,168,32, 
123,6,24,165,203,105,8,133,203,32,128, 
6,76,138,6,169,8 

PR 1650 DOTO 76,138,6,169,240,160,8,145,2 
03,136,208,251,96,169,168,141,3,210,16 
9,96,141,2,210,76,19 

FX 1660 DOTO 6,184,104,133,204,104,133,20 
3,104,184,133,205,104,133,207,104,133, 
206,238,208,165,208,201,13,208 
5X 1670 DOTO 12,169,213,160,5,145,206,24, 
105,1,136,288,248,160,0,162,6,169,7,76 
,92,228,72,169,26 

CB 1680 DOTO 141,10,212,141,26,208,169,21 
8,141,0,2,169,6,141,1,2,104,64,72,138, 
72,169,224,162,200 

WY 1690 DOTO 141,10,212,141,9,212,142,24, 
208,142,26,208,169,197,141,0,2,169,6,1 
41,1,2,104,170,104,64 
SM 1695 DOTO 104,104,133,207,104,133,206, 
162,4,169,0,168,145,206,136,208,251,23 
0,207,202,208,246,96 

PL 1696 DOTO 104,104,133,204,104,133,203, 
104,104,160,0,145,203,200,192,220,208, 
249,96 

MI 1700 REM COSTLE DOTO 

RZ 1710 Y1=17!F0R I=0 TO 16:RE0D DiPOKE P 
1+I+Yi,D:NEXT I 
NJ 1720 RESTORE 1730 

HJ 1730 DOTO 24,153,153,153,255,195,129,1 
29,129,129,129,129,129,129,129,255,255 
nQ 1740 POKE DM+38,18:POKE 53249,188 
BC 1750 RETURN 
WZ 1800 REM REMOUE COSTLE 
UN 1810 FOR 1=0 TO 40:NEXT I 
XG 1820 FOR 1=16 TO 0 STEP -1 
DB 1830 POKE Pl+I+Yi,O 
UX 1840 SOUND 0,10,10,1 
UU 1850 SOUND 1,12,10,1+1 
YK 1860 SOUND 2,14,10,1+2 
WG 1870 FOR J=0 TO 5:NEXT J:NEXT I 
ZR 1880 FOR 1=0 TO 2:S0UND I,O,O,0:NEXT I 
BG 1890 RETURN 

FO 1900 REM INITIOL PLOYER POSITION 
RM 1910 Y=95:X2=48:P0KE 53250,X2 
OY 1920 FOR 1=1 TO 8 
UO 1930 POKE P2+I+Y,240:NEXT I 
PI 1940 D=USRC1687,P2+Y,X2,DM+210) 

BG 1950 RETURN 

DU 20O0 REM PLOYER TOUCHES COSTLE 
TF 2010 POKE 1790,0 

TU 202O FOR I=0 TO 80:SOUND 2,127-1,8,6 

OG 2030 POKE P2+I,0:NEXT I 

BJ 204O GOSUB 1900 

UN 2050 SOUND 2,0,0,0:G0T0 500 

UP 2100 REM SCONNER 

HY 2110 POKE 53251,PEEK I205)-12:Y3=PEEKC2 
03)-lO 

10 2120 FOR 1=0 TO 30:POKE P3+I+Y3,255:SO 
UND 0,1,10,8:NEXT I 
HI 2130 SOUND 0,0,0,0 
XO 2140 GOSUB 600 
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^ Dragon Chase continued 


VH 2150 FOR I—O TO 15:NEXT I:SC0RE=5C0RE- 
5:GOSUB 2500 

OM 2160 FOR I—O TO 30:P0KE P3+I+Y3,O:SOUN 
D O,30-I,10,10:NEXT I 
AS 2165 POKE 53278,1:RETURN 
JF 2200 REM DRAGON GETS PRINCESS 
WP 2210 POKE 1790,O:CLEAR=USR(ADR(E$},PMB 
ASE*256J 

DN 2220 GOSUB 2300:POSITION 1,11:? 86;" 
PRESS FIRE 

VV 2230 FOR I—O TO 35:IF STRIGtO)=0 THEN 
POP :GOTO 140 
FG 2240 NEXT I 

JT 2260 GOSUB 2300:G05UB 25O0 
WH 2270 FOR 1 = 0 TO 35HF STRIGt0)=O THEN 
POP :GOTO 140 
F5 2280 NEXT I 
QD 2250 GOTO 2220 
UK 23O0 FOR J=15 TO 17 

VU 2310 SOUND 3,186+J,10,6!5OUND 2,185+J, 

10,6 

XH 2320 X=USRtADRCE$J+23,DM,J) 

PH 2340 FOR I=0 TO 25:NEXT I:NEXT J 
WZ 2350 SOUND 3,O,O,O:SOUND 2,O,0,O 
AY 2360 RETURN 
RN 2400 REM NEXT ROUND 

PI 2410 DIF=DIF-10:IF DIF<10 THEN DIF=10 
GT 2420 FIELD=3:LEVEL=i 
CB 2430 POSITION 0,11:? «6; ■■IS" 

SJ 2440 POSITION 2,11:? 86J"ROUND “JR;" C 
OMPLETE":FOR 1=0 TO 200 STEP 2 
RP 2450 SOUND O,254-1,10,8:SOUND 1,252-1, 
10,8 

ZI 2460 SOUND 2,250-1,10,8:SOUND 3,248-1, 

10,8 

FT 2470 NEXT I 

AB 2480 FOR I=0 TO 3:SOUND I,0,O,O:NEXT I 
WZ 2490 R=R+1:RETURN 
PU 2500 REM PRINT SCORE 
DB 2510 IF SCORE<0 THEN SCORE = 0 
MM 2520 POSITION 1,11:? 86j M 
":REM 17 SPACES 

XK 2530 POSITION 4,11:? ne^'SCORE "JSCORE 
AW 2540 RETURN 

• 
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by Chuck Rosko 

The nuclear industry is looking for an adventurous in¬ 
dividual who’s willing to tackle a high-risk job. Surprise! 
That’s you. Your task is to remove the krebs located in the 
reactor cores of the Nittany Memorial Power Plant. A kreb, 
of course, is a uranium pellet which is no longer radioac¬ 
tive. The krebs inhibit fission, so they must be removed 
and replaced with new radioactive uranium. 

Your joystick (port 1) controls your atomic core scrub¬ 
ber. Move over each kreb (in green), and your scrubber 
will remove it, replacing it with a radioactive uranium pel¬ 
let (in red). If you rim into any of the radioactive pellets, 
your scrubber will be destroyed. The big spenders of the 
industry are paying you $5.00 for every kreb removed. 

At the bottom right-hand side of the screen is a readout 
of the amount of energy in your scrubber. You must re¬ 
place all the krebs before your energy rims out, or— 
again—your scrubber will be annihilated. 

You’ll start work on each successive core with less ener¬ 
gy. After you’ve restored two cores, you’ll have to avoid 
the deadly hudnall. This creature, who’s trapped inside 
the core, is attracted to the noise of your scrubber and will 
attack it whenever possible. Avoid the hudnall at all costs. 

Whenever your scrubber is destroyed, a chain reaction 
takes place—causing a reactor meltdown. The game (or 
rather, your job) is over after three meltdowns. 


How it works. 

Here’s a description of the Krebs removal program. 

Lines 78-85 — update your energy usage. 

Lines 98-100 — the sound routine, heard when you 
hit the core wall. 

Lines 108-120 — scoring routine. 

Lines 198-285 — moves the hudnall. The logic rou¬ 
tine is a modified version, adapted from the Basic 
Training series (this one was in issue 18). 

Lines 288-640 — reads the joystick and moves the 
scrubber, first checking what the scrubber will hit, 
then going to the appropriate subroutine. 

Lines 748-770 — the scrubber is destroyed; the core 
melts down; and the number of scrubbers decreases. 

Lines 773-795 — game-over message. Returns you 
to the title page. 

Lines 798-820 — core-is-secured routine. Allotted 
energy decreases, so the difficulty level increases. 

Lines 848-860 — plot the scrubber’s initial position 
(random). 

Lines 998-1040 — plot 30 krebs (random). 

Lines 1098-1150 — plot 10 uranium pellets (ran¬ 
dom). 

Lines 10000-10030 — initialize, then start game. 

Lines 29098-30060 — draw main screen. 

Lines 30198-30260 — draw title screen and initial¬ 
ize variables. 
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^ Krebs removal continued 


Lines 31098-32239 — redefines two character sets. 

Lines 32000-32040 — move character set from ROM 
to two different locations in RAM. 

Lines 32050-32230 — read in data for the first 
character set. 

Lines 32231-32239 — read in data for the second 
character set. 

Table 1. 


LIST OF VARIABLES 


BX.BY.Hudnall's X- and Y-position 

BUG.Flag; if less than 5, hudnall moves. 

CLOCK.Timer; used to determine when to decrease 

energy level. 

EN.Scrubber’s energy level. 

LEVEL .Amount of energy you initially enter the core 

with. 

PC .Flag; indicates the number of krebs cleared. 

SC .Score. 

SCRUB.Number of scrubbers or lives. 

XV,YV .... Holds direction hudnall is to move. 

X.Y.Scrubbers X- and Y-position. 


Krebs removal was written without player/missile 
graphics, and with only two short machine language rou¬ 
tines. One routine is used to move the character set from 
ROM to RAM; the other produces the rainbow effect when 
the core melts down. 

I did this in order to show that you can make a relative¬ 
ly fast game primarily out of BASIC. I’m not saying that 
player/missile graphics and machine language routines 
aren’t helpful. In fact, they’re very useful, and can enhance 
a game tremendously. I just wanted to write a game with¬ 
out them. 


I did, of course, redefine the character set. In fact, I rede¬ 
fined two character sets. Each contains a different view 
of the scrubber, krebs, radioactive pellets and hudnall. All 
you have to do to animate them is quickly flip between 
the two character sets. This technique is useful when you 
want to animate a large number of the same objects (i.e., 
krebs and radioactive pellets), regardless of where they 
are on-screen. 

Since I was using the technique for krebs and pellets, 
I also used it for the scrubber, hudnall and title page. To 
see what Krebs removal would be like without this tech¬ 
nique, change Line 290 to read / = STICK(O). One note, if 
you redefined a character but don’t want it animated (like 
the core walls), you must put the same view in each 
character set. 

The routine which moves the hudnall towards the scrub¬ 
ber was taken (and slightly modified) from issue 18’s Ba¬ 
sic Training. I highly recommend that you read these 
articles. They contain many valuable programming tips. 

Another way to pick up some knowledge is to analyze 
other people’s games. So take a look at Krebs removal. 
Maybe you’ll find something you can use in your next 
game. H 

Chuck Rosko is a microbiologist from Pittsburgh, Penn¬ 
sylvania, the proud father of a baby boy. His interests in¬ 
clude his wife and son, hockey, and writing educational 
programs. 


The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 


Listing 1. 
BASIC listing. 


MU 

«D 


1 REM 

2 REM 


KREBS REMOVAL 
BY CHUCK ROSKO 


UPDATE ENERGY USAGE 


GG 10 Ki=l:K2=2:K3=3:K5=5:K6=6:K10=10:K15 
=15:K18=18:K50=50:K255=255:POKE 559,K0 
:G0T0 100O0 
RF 78 REM 

YP 80 EN=EN-K5:POSITION 16,23:? ttKOjEN;" 

" : IF EN<=K0 THEN 750 

YN 85 CL0C K = K10!GOTO 290 _ 

UK 98 REM 

YL 100 POKE 710,K15:SOUND K0,125,12,K6:F0 
R C = K1 TO K50:NEXT C:S0UND KO,KO,K0,K0 
: POKE 71 0,148iGOT0 290 
VK 108 REM 

EE 110 SC=SC+K5:POSITION Kl,23:? BK6;SC:S 
0UND K0,75,K1O,K10:SOUND KO,K0,K0,K0:P 
C=PC+K1:Z(K21=Z(Kl):IF PC = 30 THEN 800 
PP 120 GOTO 290 
KN 198 REM ■ 11<1U 111MTITTW 

TX 280 COLOR 94:PLOT X,Y:50UND KO,25,K10, 
K6:SOUND K0,K0,K0,KO:M=K1 — M 
XJ 218 CLOCK=CLOCK-0.2:IF CLOCK<=K0 THEN 
80 

KL 220 IF LEVEL>44 THEN 290 
YN 240 BUG=INTCRNDCK0)*LE0ELJ:IF BUG>4 TH 
EN 290 

GM 260 X0=SGNCX-BX):YV=SGNCY-BY) 

UJ 265 LOCATE BX+XV,BY+YU,Z1:TEMP1=Z1 


06 

AS 

MW 

JG 

LJ 

ML 

SU 

YJ 

EM 

MD 

UM 

KY 

UR 

MK 

NS 


270 COLOR TEMP2:PLOT BX,BY:BX=BX+XV:BY 
=BY+YV:COLOR 220:PLOT BX,BY:IF Zl=94 T 
HEN 750 

285 TEMP2=TEMPi 


READ JOYSTICK 


290 J-STICKCK03 SPOKE 756,PEEKC106J+K1 + 
M+M:C-XD(J):IF C = K5 THEN 200 
300 LOCATE X+XMCC),Y+YMCC),Z:IF Z>185 
AND Z<192 THEN 100 

310 COLOR ZCK2):PL0T X,Y:X=X+XMCCJ:Y=Y 
+ YMtC) :COLOR 94:PLOT X,Y:M=K1-M 
320 IF Z=14 THEN ZCK13=255:GOTO 110 
330 IF Z <> 255 THEN ZCK2)=160:GOTO 210 


SCRUBBER DESTROYED 


750 POSITION K3,K0:? «K6; M CHMEHEE] 
“:F0R Z=K0 TO K3:SOUND Z,255-Z,14,K5 
:NEXT Z 

752 U=U5R(ADRCRB$3):P=PEEK(560):F0R Z= 
KO TO K3:SOUND Z,KO,KO,KO:NEXT Z 

753 FOR C=K1 TO K15:F0R Z=K0 TO K3:R=I 
NTCRNDC0)*30J:P0KE 712,PEEKC53770):P0K 
E 560,P+Z:SOUND K0,R,8,14:NEXT Z 

754 NEXT C:P0KE 560,P:BX=K10:BY=K10:TE 
MP2=191 

760 SCRUB=5CRUB-K1:COLOR 160:PLOT 7+SC 
RUB+5CRUB,22:POKE 559,K0:P0KE 712,14 
762 FOR Z=K1 TO K10:SOUND KO,K10*Z, K10 
-Z,K10-Z 
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DJ 765 FOR C=K1 TO KiO:NEKT C:NEXT Z:POKE 
712,K0:P0KE 559,46:GOSUB 30001 
JM 770 IF SCRUB THEN CL0CK = K10:EN = LEVEL : P 
C=KO:GOS UB 1000 : GOS UB 850:GOTO 290 
SN 773 REM ■ 

PN 775 POSITION K3,K6:? ttK6;"J0B TERMINAT 
ED" : POSITION K3,14:? ttK6 ! : 

SC 

NF 780 FOR Z = K0 TO K3:S0UND Z,K255-Z,14,K 
5:NEXT Z:U=USRCADRCRB$)) 

RA 790 FOR Z = K0 TO K3:S0UND Z,KO,KO,KO:NE 
XT Z:? »K6jCHR$C125)IGOSUB 30200 
OT 795 GOSUB 300OO:GOSUB lOOOiGOSUB 850:G 

OTO 290 __ 

FC 798 REM ■millJ^^i^=*■ :!■! 1 >f j :| 

lc 800 p$= " a 

" :BX 

-KIO:BY=K10:TEMP2=19i 
CO 805 FOR Z-Kl TO K5:S0UND KO,75,KIO,KIO 
:POKE 712,14:FOR C = Ki TO K50:NEXT C:SO 
UND K0,15O,K1O,K1O:POKE 712,KO 
OF 807 FOR C-Kl TO K50INEXT C 
OP 810 NEXT Z:FOR F = K1 TO 45:P0SITI0N Kl, 
9:? 8K6:P$CK1.K18):G$=P$CK2):Q$CLENCQS 
)+Kl)=PS:P$=QS:SOUND KO,200,11,14 
NC 815 FOR Z-Kl TO KIO:NEXT Z:SOUND KO,KO 
,KO,KO:NEXT F:PC=K0:LEVEL=LEVEL-K5:IF 
LEVEL<30 THEN LEVEL=30 
DD 820 EN=LEVEL:ZCK1)=160:ZCK2)=160:GOSUB 
30005:GOSUB 1000:CL0CK=K10:GOSUB 850: 
GOTO 290 

GM 848 REM _ 

LJ 850 X=INTCRNDCK0)*Kl8)+Ki:Y=INTCRNDCKQ 
)*K18)+K2:LOCATE X,Y,Z 
IQ 852 IF (Z>185 AND Z<192) OR Z=14 OR Z= 
64 OR Z=K255 THEN 850 
UJ 860 COLO R 94 : PLOT X, Y:RETURN 
YJ 998 REM MU 
US 1000 FOR CC=K1 TO 30 

MR 1005 A = INT tRND CKO)*K18) + K1:B = INT(RNDCK 
0)#K18)+K2:LOCATE A,B,Z 
CM 1010 IF CZ>185 AND Z<192) OR Z=14 OR Z 
=64 THEN 1005 

MK 1040 COLO R 14:PL0T A,B: NEXT CC 

bb 1098 rem ■ jnhmii:<yi:hm;b 

ZM 1100 FOR CC=K1 TO KIO 

WT 1105 A=INTCRNDCK0)*K18)+K1:B=INTCRNDCK 
0)*K18)+K2:L0CATE A,B,Z 
GS 1110 IF CZ>185 AND Z<192) OR Z=14 OR Z 
=64 OR Z=K255 THEN 1105 
YP 1150 COLOR K255:PLOT A,B:NEXT CC:POSIT 

ION 16,23:? ttK6;EN;.RETURN 

VI 100O0 DIM ZZ$C32),ZCK2):GOSUB 32000:GR 
APHICS 17:POKE 756,PEEKC106)+K1:G05UB 
30200:GOSUB 30000 

IS 10010 DIM XDCK15J,P$C65),Q$C65) :FOR X = 
K5 TO K15:XDCX)=K5:NEXT X:XDC7)=K2:XDC 
11)=4:XDC14)=K1:XDC13)=K3 
WZ 10020 DIM XMC4),YMC4):RESTORE 10030:F0 
R I=K1 TO 4:READ X,Y:XMCl)=X:YMCl)=Y:N 
EXT I 

SH 10030 DATA O.-1,1,0,O,1,-1,O 
PO 10040 DIM RBSC21)iRESTORE 10050:F0R 1= 
Kl TO 21:READ X:RB$Cl)=CHR$CX):NEXT I 
ZM 10050 DATA 104,169,0,133,20,133,19,105 
,1,232,142,22,208,142,10,212,197,19,20 
8,245,96 

FF 10060 GOSUB 1000:G0SUB 850:G0T0 290 
TM 29098 REM 
YY 30000 POSITION K0,22 


INITIALIZE SCRUBBER 


K energy$ M 
VK 3000 1 POSITION K3,K0: 
M" 

GU 30005 POSITION K0,K1: 

GOGOa 
0GGG M ; 


ttK6; "H3HE HU 


ttK6;" 

0GGGGGGG 


UO 30010 ? t»K6;"GGfc 
IF 30020 ? «K6J" 

TG 30030 ? ttK6; " 

IN 30040 ? 8K6;" 


0GGG| i 





JGGG 1 
flGGGG 


DRAM INITIAL SCREEN 


BG 30050 ? 8K6; n GL 

flGGGGGH 

OW 30060 ? 8K6;"GGGGH 

IIIHH1HI ": RETURN 

5F 30198 REM | _ 

SX 30200 SC=K0:SCRUB=K3:EN=K50:CL0CK=K10: 
PC=K0:LE0EL=K50:BX=K10:BY=K10:TEMP2=19 
1: Z CK1)=16 0:Z CK2)=160:POKE 559,34 
BD 30205 POKE 710,148:P0KE 709,202:P0KE 7 
08,54:POKE 711,70 
NU 30210 POSITION K0,4:? ttK6j"Z 


Z Z Z 


Z ZZZ ZZZ 
Z Z Z Z Z 


ZZZ ZZ 
Z Z 1 


DEFINE 2 CHARACTER SETS 


ON 


ZZZ ZZZ z z z z z 
ZZZ 

LC 30212 ? 8K6;"ZZ ZZZ ZZZ ZZ 
ZZ ZZ ZZZZZZ 
MK 30214 ? 8K6;"Z ZZZ ZZZ ZZZ ZZZ 
REMOVAL '• 

GZ 30240 POSITION K3,14:? ttK6; M [I]D Chuck r 
osko" :POSI TION K0,2l:? ^KG^'to apply p 
ress SH33" 

AK 30250 IF PEEKC53279)=K6 THEN ? 8K6;CHR 
$ C125) :RETURN 

JA 30260 POKE 756,PEEKC106)+K1+M+M:M=K1~M 
:SOUND K0,200,K10,K10:S0UND KO,KO,KO,K 
0 : GOTO 30250 
CR 31098 REM 
KA 320OO RESTORE 32010:F0R I=K1 TO 32:REA 
D A:ZZ$Cl)=CHR$CA)!NEXT I 
BR 32010 DATA 104,104,133,204,104,133,203 
,104,133,206,104,133,205,162,4,160,0 
QV 32020 DATA 177,203,145,205,136,208,249 
,230,204,230,206,202,208,240,96 
32030 POKE 106,PEEKC106) _ K5:GRAPHICS 1 
7:START=CPEEKC106)+K1)«256:POKE 752,Kl 
KD 32035 POSITION 4,KIO:? 8K6j"PLEASE MA 
IT" 

FD 32040 A=USRCADRCZZ$),57344,START):A=US 
R CADR CZZ$),57344,START + 512) 

BV 32050 READ X:IF X=-K1 THEN 32300 
NY 32060 FOR Y = KO TO 7: READ ZiPOKE X + Y + ST 
ART,Z:NEXT YIGOTO 32050 
EZ 32200 DATA 208,0,0,0,0,0,0,0,255,216,2 
55,0,0,0,0,0,0,0,224,1,1,1,1,1,1,1,1,2 
32,128,128,128,128,128,128,128,128 
IZ 32210 DATA 240,1,2,4,8,16,32,64,128,24 
8,128,64,32,16,8,4,2,1 
XG 32220 DATA 496,24,60,102,195,195,102,6 
0,24,504,0,60,126,126,126,126,60,0 
RZ 32225 DATA 112,60,126,15,252,63,240,12 
6,60,256,255,129,129,129,129,129,129,2 
55 

CS 32230 DATA 464,255,195,195,195,195,195 
,195,255,480,36,24,165,126,126,126,189 
,24,-1 

TA 32300 READ X:IF X=-K1 THEN RETURN 
MT 32310 FOR Y=KO TO 7:READ ZiPOKE X+Y+ST 
ART+512,Z:NEXT Y:GOTO 32300 
FK 32320 DATA 208,0,0,8,0,0,0,0,255,216,2 
55,0,0,0,0,0,0,0,224,1,1,1,1,1,1,1,1,2 
32,128,128,128,128,128,128,128,128 
JK 32330 DATA 240,1,2,4,8,16,32,64,128,24 
8,128,64,32,16,8,4,2,1 
OP 32340 DATA 496,O,O,24,60,60,24,0,O,504 
,60,126,255,255,255,255,126,60 
RW 32350 DATA 112,60,126,240,63,252,15,12 
6,60,256,255,129,129,129,129,129,129,2 
55 

Cl 32360 DATA 464,255,255,255,255,255,255 
,255,255,480,102,24,165,126,126,126,18 
9,153,-1 
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Since issue 1, ANALOG Computing’s 

disk subscriptions have eliminated the need for you to 
spend hours typing in programs from the magazine. 

All of the programs in the magazine are on the disk version. 

A 1-year subscription (12 issues) is $105.00; a V 2 -year (6 issues) is $59.00. 

To subscribe on disk, send your check or money order to: 

DISK SUBSCRIPTION, P.O. BOX 625, HOLMES, PA 19043. 

For fast service, call our toll-free U.S. order line: 800-345-8112 (in PA, call 800-662-2444). 


PROGRAMMING 


ITS ALL 
I IN 
THE 
DISK 











XL Machines Only 



by Barry Green 


This program was developed quite unintentionally. I was 
busy hacking away on a new machine-language animation 
system for the Atari, that works with BASIC. One evening, 
I actually got around to testing it with Atari BASIC. The 
program worked flawlessly and made animation feasible 
from BASIC, but it was still pitifully slow. 

After hours of poring over the code, trying to trim and 
streamline it to make it run faster, I realized the fault was 
not with my program at all. It was working as fast as it 
could. Still, I thought, there has to be a better way! One 
evening when I was reading through my Atari BASIC 
Sourcebook, the dim light in my brain flickered on for a 
moment. 

The incredible slothfulness of BASIC—from a game 
programmer’s point of view—could be traced to the fact 
that no provision for integers had been made. Only 
floating-point math was supported, and it’s very slow. In¬ 
teger math is very fast, so somehow my Atari had to be 
made to understand integer math. This was, of course, 
much easier said than done. 

And how? 

One very underexplored feature of the Atari 800XL and 
1200XL (and the expanded 600XL) is that the operating 
systems can be placed in the upper 16K bank of memory 
and modified to no end. 


This was my chance. I could load the OS into RAM, then 
replace the old floating-point math package with a much 
faster integer package. Every operation BASIC did, from 
POKE to FOR-NEXT, would run faster. 

That’s what I did. The following program places the OS 
in RAM, then replaces the old math package with a much 
more efficient integer math package. I’ve run some BA¬ 
SIC test programs, to show the speed gained by using in¬ 
teger math instead of floating point. 

Typing it in. 

Listings 1 and 2 are the BASIC data to create your co¬ 
pies of Integer BASIC. Please refer to the M/L Editor on 
page 4 for typing instructions. You should create the pro¬ 
gram in Listing 1 under the filename INTBASIC.OBJ. Cre¬ 
ate the program in Listing 2 under the filename INT- 
BASI2.QBJ. 


The test. 

Is Integer BASIC that much faster? To prove that it is, 
I devised three very simple BASIC programs to test the 
speed difference. Each was run in both languages, and the 
jiffy-count was printed next to each. 


Floating-Point 

FOR-NEXT 1459 

MATH TEST 947 

SCREEN FILL 3754 


Integer %Faster 

1044 30% 

510 46% 

1869 51% 


The source listings for Integer BASIC follow this arti¬ 
cle. As you can see, the Integer BASIC can be up to 50% 
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Integer BASIC continued 


faster. That’s a serious improvement for something so eas¬ 
ily accessible. 

The side benefit: those of you using an Integer BASIC 
compiler might consider how handy it would be to be able 
to interactively debug your own programs. 

How to integrate it. 

Here are instructions for using the INTBASIC integer 
math package for 64K Atari XL computers. 

To use this package, just load the INTBASIC.OBJ file 
from DOS menu item L, or from OS/A+ type in LOAD INT¬ 
BASIC.OBJ. Your computer will now be in Integer BASIC. 
Do this only if no BASIC program is in memory at the time. 

The INTBASIC package has been tested, with no bugs 
found. However, some knowledge of integer math is re¬ 
quired to use the package effectively. Since the numbers 
being dealt with are integers, BASIC will no longer recog¬ 
nize a decimal point as valid. Only numbers in the range 
of 0-65535 or, in version 2, -32768 to +32767 will be ac¬ 
cepted. This also means that division is treated slightly 
differently. In integer math, the expression 10/3 evaluates 
into 3, not 3.3333. . .All numbers are rounded down; the 
digits past the decimal point are simply dropped. 

This means that special care must be taken in using the 
built-in functions such as COS(X) and RND(O). Math func¬ 
tions like COS(X) will simply not work correctly. RND(O) 
should not be used, because it now only returns a value 
between 0 and 3. It’s a better idea to use PEEK(53770) to 
get a random number. 

Negative numbers in version 1 are different. They are 
now expressed in 65536-X terms. This means that a nega¬ 
tive number is subtracted from 65536 and the result is 
printed. Therefore, when printing a negative 1 (-1) on the 
screen, you will get 65535 (65536-1). Negative numbers 
are fully usable; they just print differently from what you’d 
expect. 

One last restriction: BASIC programs developed under 
the integer math package cannot be loaded into the float¬ 
ing-point BASIC; nor can floating point programs be load¬ 
ed into Integer BASIC. 

The solution to transferring programs from one format 
to the other is simply to LIST them onto disk or cassette, 
then ENTER them into the other version of BASIC. When 
transferring programs from floating-point BASIC to in¬ 
teger, remember that decimal points will be flagged as er¬ 
rors, and you must fix all RND(O) usage. 

Have fun with Integer BASIC and enjoy its refreshing 
speed. H 

Barry Green of Out of the Blue Associates bought his 
first Atari (an 800) in 1982 and taught himself BASIC and 
assembly language. Since then, he’s worked on many con¬ 
versions and originals for various companies. His main in¬ 
terest lies in system software and utilities. 


Listing 1. 


1000 DATA 255,255,0,6,101,6,32,70,6,17 

7,203,145,205,200,208,249,1480 

1010 DATA 230,204,230,206,202,224,48,2 


08,3,32,91,6,224,0,208,233,8696 

1020 DATA 120,169,0,141,14,212,169,254 

,141,1,211,32,70,6,177,205,7512 

1030 DATA 145,203,200,208,249,230,204, 

230,206,202,224,48,208,3,32,91,502 

1040 DATA 6,224,0,208,233,88,169,64,14 

1,14,212,96,169,0,133,203,8047 

1050 DATA 169,192,133,204,169,0,133,20 

5,169,64,133,206,162,64,160,0,7732 

106O DATA 96,160,8,230,204,230,206,202 

,136,208,248,96,226,2,228,2,1480 

107O DATA 0,6,96,0,216,78,216,32,161,2 

19,169,64,133,212,169,0,8184 

1080 DATA 133,213,133,214,133,215,56,8 

,164,242,177,243,201,48,144,52,341 

1090 DATA 201,58,176,48,40,24,8,41,15, 

72,165,214,133,215,165,213,8715 

1100 DATA 10,38,215,10,38,215,24,101,2 

13,133,213,165,215,101,214,133,1444 

1110 DATA 214,6,213,38,214,104,24,101, 

213,133,213,144,2,230,214,230,2251 

1120 DATA 242,76,17,216,40,96,230,216, 

91,217,32,81,218,165,213,133,1323 

1130 DATA 220,165,214,133,221,160,0,16 

2,0,165,213,217,87,217,165,214,2880 

1140 DATA 249,82,217,144,19,165,213,56 

,249,87,217,133,213,165,214,249,5171 

1150 DATA 82,217,133,214,232,76,245,21 

6,138,9,48,145,243,200,192,5,499 

1160 DATA 208,213,136,177,243,9,128,14 

5,243,160,0,177,243,201,48,208,2167 

1170 DATA 4,200,76,39,217,132,222,165, 

243,56,229,222,133,218,165,244,5799 

1180 DATA 233,0,133,219,177,243,145,21 

8,200,192,5,208,247,165,220,133,5010 

1190 DATA 213,165,221,133,214,96,39,3, 

0,0,0,16,232,100,10,1,9645 

1200 DATA 170,217,183,217,166,212,164, 

213,169,64,133,212,134,213,132,214,447 

1 

1210 DATA 24,96,210,217,219,217,165,21 

3,133,212,165,214,133,213,24,96,2487 

1220 DATA 96,218,98,218,76,117,218,102 

,218,146,218,165,213,24,101,225,2362 

1230 DATA 133,213,165,214,101,226,133, 

214,24,96,165,213,56,229,225,133,2628 

1240 DATA 213,165,214,229,226,133,214, 

6,212,165,214,10,102,212,165,213,3024 

1250 DATA 5,214,208,2,133,212,24,96,21 

9,218,2,219,169,0,133,219,9685 

1260 DATA 133,218,162,16,208,13,24,165 

,219,101,225,133,219,165,218,101,2080 

1270 DATA 226,133,218,70,218,102,219,1 

02,214,102,213,202,48,4,144,243,1188 

1280 DATA 176,228,24,96,40,219,86,219, 

165,225,5,226,240,39,169,0,8939 

1290 DATA 133,219,133,218,160,16,6,213 

,38,214,38,219,38,218,56,165,8328 

1300 DATA 219,229,225,170,165,218,229, 

226,144,6,134,219,133,218,230,213,5973 

1310 DATA 136,208,227,24,96,56,96,137, 

221,151,221,134,252,132,253,160,4240 

1320 DATA 2,177,252,153,212,0,136,16,2 

48,96,152,221,166,221,134,252,3994 

1330 DATA 132,253,160,2,177,252,153,22 

4,0,136,16,248,96,167,221,181,2025 

1340 DATA 221,134,252,132,253,160,2,18 

5,212,0,145,252,136,16,248,96,607 

1350 DATA 182,221,193,221,160,2,185,21 

2,0,153,224,0,136,16,247,96,8467 

1360 DATA 224,2,225,2,228,2,0,0,0,0,0, 

0,0,0,0,0,3423 


Listing 2. 

1000 DATA 255,255,0,6,101,6,32,70,6,17 
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7,203,145,205,200,208,249,1480 

1010 DATA 230,204,230,206,202,224,48,2 

08,3,32,91,6,224,9,208,233,8696 

1020 DATA 120,169,0,141,14,212,169,254 

,141,1,211,32,70,6,177,205,7512 

1036 DATA 145,203,200,208,249,230,204, 

230,206,202,224,48,208,3,32,91,502 

1040 DATA 6,224,0,208,233,88,169,64,14 

1,14,212,96,169,0,133,203,8047 

1050 DATA 169,192,133,204,169,0,133,20 

5,169,64,133,206,162,64,160,0,7732 

1060 DATA 96,160,8,230,204,230,206,202 

,136,208,248,96,226,2,228,2,1480 

1070 DATA 0,6,96,0,216,78,216,32,161,2 

19,169,64,133,212,169,0,8184 

1080 DATA 133,213,133,214,133,215,56,8 

,164,242,177,243,201,48,144,52,341 

109O DATA 201,58,176,48,40,24,8,41,15, 

72,165,214,133,215,165,213,8715 

1100 DATA 10,38,215,10,38,215,24,101,2 

13,133,213,165,215,101,214,133,1444 

1110 DATA 214,6,213,38,214,104,24,101, 

213,133,213,144,2,230,214,230,2251 

1120 DATA 242,76,17,216,40,96,230,216, 

132,217,32,81,218,165,213,133,1692 

1130 DATA 220,165,214,133,221,16,29,16 

5,213,73,255,24,105,1,133,213,8100 

1140 DATA 165,214,73,255,105,0,133,214 

,160,0,169,45,145,243,230,243,2604 

1150 DATA 208,2,230,244,160,0,162,0,16 

5,213,217,128,217,165,214,249,4825 

1160 DATA 123,217,144,19,165,213,56,24 

9,128,217,133,213,165,214,249,123,4897 

1170 DATA 217,133,214,232,76,20,217,13 

8,9,48,145,243,200,192,5,208,109 

1180 DATA 213,136,177,243,9,128,145,24 

3,160,0,177,243,201,48,208,4,9712 

1190 DATA 200,76,70,217,132,222,165,24 

3,56,229,222,133,218,165,244,233,7075 

1200 DATA 0,133,219,177,243,145,218,20 

0,192,5,208,247,165,228,133,213,5700 

1210 DATA 165,221,133,214,16,8,165,243 

,208,2,198,244,198,243,96,39,1337 

1220 DATA 3,0,0,0,16,232,100,10,1,170, 

217,183,217,166,212,164,716 

1230 DATA 213,169,64,133,212,134,213,1 

32,214,24,96,210,217,219,217,165,4440 

1248 DATA 213,133,212,165,214,133,213, 

24,96,96,218,98,218,76,117,218,1105 

1250 DATA 102,218,146,218,165,213,24,1 

01,225,133,213,165,214,101,226,133,356 

9 

1260 DATA 214,24,96,165,213,56,229,225 
,133,213,165,214,229,226,133,214,6544 
1270 DATA 6,212,165,214,10,102,212,165 
,213,5,214,208,2,133,212,24,8786 
1280 DATA 96,219,218,2,219,169,0,133,2 
19,133,218,162,16,208,13,24,6991 
1290 DATA 165,219,101,225,133,219,165, 
218,101,226,133,218,70,218,102,219,421 
8 

1300 DATA 102,214,102,213,202,48,4,144 
,243,176,228,24,96,40,219,86,8678 
1310 DATA 219,165,225,5,226,240,39,169 
,0,133,219,133,218,160,16,6,7494 
1320 DATA 213,38,214,38,219,38,218,56, 
165,219,229,225,170,165,218,229,6048 
1330 DATA 226,144,6,134,219,133,218,23 
0,213,136,208,227,24,96,56,96,9978 
1340 DATA 137,221,151,221,134,252,132, 
253,160,2,177,252,153,212,0,136,1950 
1350 DATA 16,248,96,152,221,166,221,13 
4,252,132,253,160,2,177,252,153,4501 
1360 DATA 224,8,136,16,248.96,167,221, 
181,221,134,252,132,253,160,2.2836 
1370 DATA 185,212,0,145,252,136.16,248 
,96,182,221,193,221,160,2,185,2265 
1380 DATA 212,0,153,224,0,136,16,247,9 
6,226,2,227,2,228,2,0,4969 


Listing 3. 

BASIC listing. 

Bf 5 POKE 19,0:POKE 20,0 
GJ 10 FOR X = 1 TO 1O0O0 
mu 20 NEXT X 

Nil 30 PRINT PEEK C19J #256 +PEEK C20) 

• 


Listing 4. 

BASIC listing. 

iM 10 POKE 19,0:POKE 20,0 
SR 20 J=5 

X4 30 FOR X=i TO 1000 
Br 40 J=J*2:J=J/2 
NY 50 NEXT X 

NT 66 PRINT PEEK Cl9J *256+PEEK £20) 

• 


Listing 5. 
BASIC listing. 



10 GRAPHICS 8+16:SCREEN=PEEKC88J+256*P 
EEKC89J 

20 POKE 19,G:POKE 28,0 

30 FOR X=0 TO 7679:POKE 5CREEN+X,255:N 
EXT X 

40 UU=PEEKC19)*256+PEEKC20J 
50 GRAPHICS 0:PRINT UU 




Listing 6. 
Assembly listing. 


, - 

I 3AVE #D|INTBA8IC.A3H 
« ASM.,»DiINTBA8IC.OBJ 

*- 

V by Barry 6r»«n 
f Out of the Blua Aaaociataa 
»- 

* Thla la a Math packaga daslgnad 
t to raplaca tha floating-point 

t packaga in tha ATARI 64K XL 
t coaputara. Thia packaga ia 
9 antiraly intagar-baaad ao it 

* ia Much faatar. Ita internal 
» rapraaantation of nuMbera ia 

f atill referred to aa Floating- 

* point, Merely for convenience. 

9 Thia repraaantat 1 on diffara 

* froM atandard 6S02 integera in 
9 that there ia an exponent byte 

* of *40 added to it. Integera can 

* atill be uaed in FPI and IFF 

$ because these routines restore 
9 the nuebera to proper order. 

9 Thia version Mill handle nuabera 
9 in the range of 0-63333. Any 
9 nuMber above 32767 Mill be 
9 treated as a negative nueber in 

* any mathematical cooputatlona 
9 but la valid aa a number for 

9 such things as FOR-NEXT loops 
9 and ao forth. Any number that 
9 la INPUTted or ao forth with a 
t minus aign in front of it will 
9 be converted to thia format, 

9 which la simply 63336-X. 

* - 


.DPT NO LIST 
FRO - fD4 

FRE - *DA 

FR1 - 6E0 

INBUFF - *F3 

CIX - 4F2 

SKIP.BLANKS - f DBA 1 
INTLBF - BDA31 

LBUFF - S0380 

FLPTR - SFC 

9 - 

*- *0600 


START 

9 - 

• MOVES THE XL 08 TO RAM 

« THIS CODE IS BASED ON THE 
t OFFICIAL RELEA8E FROM ATARI 
« AND WAS WRITTEN BY THEM. 

* - 

ROM - *CB 

RAM - ROM+2 

08R0M - «COOO 
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Integer BASIC 


continued 


- *4000 

- • D4 0E 

- *D301 
J8R INIT 


SET P0INTER8 


LDA (ROM) ,Y MOVE THE ROM 
8T A (RAM) ,Y INTO RAM 
INY 

BNE MOV 1 
INC ROM+1 
INC RAM+1 
DEX 

CPX ••30 
BNE iMl 

J8R SKIP SKIP I/O 
CPX ••00 
BNE MOV 1 


8EI 

LDA ••00 
STA NMIEN 
LDA ••FE 
STA PORTB 


CLC 

ADC FRO - *-1 
STA FRO+1 
LDA FRO-* 3 
ADC FRO + 2 
8T A FRO-* 2 
ASL FRO - * 1 
ROL FRO - * 2 


LDA FRQ-* 2 
STA FRO-* l 
CLC 
RTS 


•- *DA60 


DISABLE THE 
INTERRUPTS 


FLIP ROM OUT 


PLA 

CLC 

ADC FRO - * 1 
STA FRO - * 1 
BCC i B 
INC FRO - * 2 
INC CIX 
JMP i 0 
PLP 
RTB 


J8R INIT 

M0V2 LDA (RAM), Y MOVE THE 08 

STA (ROM) ,Y BACK INTO THE 

INY RIGHT ADDRESSES 

BNE M0V2 

INC ROM-* 1 

INC RAM+1 

DEX 

CPX ••30 
BNE iM2 
JBR SKIP 
iM2 CPX ••00 

BNE M0V2 

9 - 

CLI 

LDA ••40 RE-ENABLE THE 

STA NMIEN INTERRUPTS AND 

RTS RETURN. 

9 - 

9 INITIALIZE PAGE ZERO VARIABLES 
9 FOR ADDRESSES OF RAM AND ROM 
9 USED FOR INDEXING 

9- 

INIT LDA • < OSROM 

STA ROM 
LDA • >08R0M 
BT A ROM+1 
LDA • < 08RAM 
8T A RAM 
LDA • >0SRAM 
STA RAM+1 
LDX ••40 
LDY ••00 
RTS 

9- 

9 8ET PAGE ZERO VARIABLES TO 
9 8KIP THE HARDWARE REGISTERS 

9- 

8KIP LDY ••08 

8KIP1 INC ROM+1 

INC RAM+1 
DEX 
DEY 

BNE 8KIP1 
RT8 

9- 

• BET THE INIT ADDRESS TO DOS 80 
9 ALL THE PREVIOUS CODE WILL BE 
9 EXECUTED AND THE RE8T OF THE 
9 PROGRAM WILL LOAD INTO THE TOP 
9 16K AND REPLACE THE OLD MATH 
9 PACKAGE. 

9- 

•- 402E2 

.WORD 8T ART 

9- 

9 TH18 JUST RETURN8 CONTROL TO 
9 DOS AFTER THE INTEGER MATH 
9 PACKAGE HA8 BEEN LOADED IN. 


9 FOLLOWING ARE THE ACTUAL MATH 

9 ROUT INE8 WHICH LOAD RI6HT ON 

9 TOP OF THE OLD 0NE8. 

9- 

9- •D800 

AFP 

9- 

9 CONVERTS ASCII TO NUMBER VALUE 

9- 

J8R SKIP.BLANKS 

LDA ••40 

STA FRO 

LDA *400 

8T A FRO+1 

STA FRO+2 

8T A FRO + 3 


9 - *D8E6 

FA8C 

9- 

9 CONVERTS INTEGERS INTO ASCII 
9 CHARACTER STRINGS. 

9- 

J8R INTLBF 
LDA FRO+1 
STA FRE+2 
LDA FRO+2 
8T A FRE + 3 
LDY ••00 
l 02 LDX *400 

lOl LDA FRO+1 

CMP LO.BYTES,Y 
LDA FRO+2 
SBC HI.BYTES,Y 
BCC NEXT.DIGIT 
LDA FRO+1 


9- • D A66 

FADD 

9- 

9 THESE ROUTINES WILL ADD AND 
9 SUBTRACT INTEGERS. 

9- 

LDA FRO+1 
CLC 

ADC FR1+1 
STA FRO+1 
LDA FRO+2 
ADC FR1+2 
8T A FRO + 2 
CLC 
RT8 


J8R 
LDA 
STA 
LDA 
8T A 
LDY 

i 02 LDX 

lOl LDA 

CMP 
LDA 
SBC 
BCC 
LDA 
BEC 
SBC 
STA 
LDA 
8BC 
8T A 
I NX 
JMP 

NEXT.DIGIT 

TX A 
ORA 
8T A 
INY 
CP Y 
BNE 
DEY 
LDA 
ORA 
STA 

9- 

9 NOW REMOVE 


LO.BYTES,Y 
FRO+1 
FRO + 2 

HI.BYTES,Y 
FRO + 2 


*•30 

(INBUFF),Y 


(INBUFF),Y 

• 480 

(INBUFF),Y 


.LOCAL 
LDA FRO+1 
BEC 

BBC FR1+1 
STA FRO+1 
LDA FRO+2 
BBC FR1+2 
STA FRO+2 
ASL FRO 
LDA FRO+2 
ASL A 
ROR FRO 
LDA FRO+1 
ORA FRO+2 
BNE i 1 
STA FRO 
CLC 
RTS 


THIS 8ET8 THE 
SIGN BIT IN THE 
EXPONENT FOR 
BASIC'S COMPARE. 
IF RESULT 
IS ZERO THEN 
ZERO OUT THE 
EXPONENT. 


9 THIS ROUTINE WILL MULTIPLY 
9 THE CONTENTS OF FRO BY THE 
9 CONTENTS OF FR1 AND STORE THE 
9 PRODUCT BACK INTO FRO. 


THE LEADING ZER0E8 


• 400 

(INBUFF),Y 

• '0 

i 04 

l 03 
FRE + 4 
INBUFF 

FRE + 4 
FRE 

INBUFF+1 

*•00 

FRE+1 

( INBUFF) ,Y 
(FRE),Y 



LDA 

• 0 


BT A 

FRE+1 


STA 

FRE 


LDX 

• 16 


BNE 

i 1 

2 

CLC 



LDA 

FRE+1 


ADC 

FR1 + 1 


8 T A 

FRE+1 


LDA 

FRE 


ADC 

FR1+2 


STA 

FRE 

1 

L SR 

FRE 


ROR 

FRE + 1 


ROR 

FRO + 2 


ROR 

DEX 

FRO + 1 


BMI 

i 3 


BCC 

i 1 


BCS 

i 2 

3 

CLC 

RT8 


DIV 

9- 

• DB28 

i TH I 8 

ROUTINE WILL DIVIDE THE 


9 CONTENTS OF FRO BY FR1 AND 
9 STORE THE RE8ULT INTO FRO. 

9- 


CIX 

(INBUFF),Y 

•'0 18 IT A DIBIT? 

i2 IF NOT, THEN 

•’9+1 BRANCH TO 

i2 THE RETURN. 


9 THE FOLLOWING ARE TABLES USED 

9 IN CONVERTING NUMBERS TO 

9 A8CII CHARACTER 8TRING8. 

9- 

HI.BYTES .BYTE >10000 

.BYTE >1000, >100 

.BYTE >10, >1 

LO.BYTES .BYTE <10600 

.BYTE <1000, <100 

.BYTE <10, <1 

9- 

9- *D9AA 

IFP 

9- 

9 TH18 ROUTINE WILL CONVERT AN 
9 INTEGER TO FLOATING POINT, 

9 WHICH IB 8IMPLY LOW BYTE-HIGH 
9 BYTE FORMAT WITH AN EXPONENT. 

9- 

LDX FRO 
LDY FRO+l 

LDA •••O jEXPONENT 

8TA FRO 

ST X FRO+1 

STY FRO+2 

CLC 

RTS 


LDA FRO+2 
STA FRO+3 
LDA FRO+1 
A8L A 
ROL FRO+3 
ASL A 
ROL FRO+3 


SAVE THE DIGIT. 

MULTIPLY THE 
NUMBER BY 10 
BEFORE ADDING 
IN THE NEW 
DIGIT. 


9- 4D9D2 

FPI 

9- 

9 THEBE ROUTINES WILL CONVERT A 
9 FLOATING POINT NUMBER BACK TO 
9 INTEGER FORMAT. 

9- 

LDA FRO+1 
STA FRO 


.LOCAL 

LDA FR1+1 CANNOT 

ORA FR1+2 DIVIDE 

BEQ iERROR BY ZERO 

LDA *0 

STA FRE+1 

8T A FRE 

LDY *16 

A8L FRO+1 

ROL FRO+2 

ROL FRE+1 

ROL FRE 

8EC 

LDA FRE+1 
8BC FR1+1 
TAX 

LDA FRE 
SBC FR1+2 
BCC l 1 
ST X FRE + 1 
STA FRE 
INC FRO+1 
DEY 

BNE i 2 

CLC 

RTS 


9- •DD89 

FLOOR 

9- 

9 THIS ROUTINE WILL LOAD FRO 
9 FROM THE ADDRESS POINTED TO 
9 BY THE 6302 X,Y REGISTERS. 

9 OR FLDOP WILL LOAD IT FROM THE 
9 CURRENT ADDRE88 OF FLPTR. 
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8TX 

FLPTR 


STY 

FLPTR+l 

FLDOP 

LDY 

• 902 

i FI 

LDA 

< FLPTR) 


8TA 

FRO, Y 


DEY 

BPL 

l FI 

9- 

RTB 



9- 

9DD98 


JLD1R 

* THIS ROUTINE WILL LOAD FR1 
« FROM THE ADDRE88 POINTED TO 
» BY THE 6302 X,Y RE6I8TER8. 

9 OR FLD1P WILL LOAD IT FROM THE 
9 CURRENT ADDRE88 OF FLPTR. 



8TX 

FLPTR 


STY 

FLPTR+l 

FLD1P 

LDY 

• 902 

1 F3 

LDA 

(FLPTR) 


8TA 

FR1 , Y 


DEY 



BPL 

RT8 

» F3 

9- 

9 ■ 

9DDA7 


F8T0R 

9- 

9 THIS ROUTINE WILL STORE FRO 
9 INTO THE ADDRE88 POINTED TO 
9 BY THE 6302 X,Y REGI8TER8. 

9 OR F8T0P WILL 8T0RE IT INTO THE 
9 CURRENT ADDREB8 OF FLPTR. 


9 



8TX 

FLPTR 


STY 

FLPTR-*-1 

F8T0P 

LDY 

• 902 

l F4 

LDA 

FRO, Y 


8 T A 

(FLPTR) 


DEY 



BPL 

RTS 

l F 4 

9- 

9" 

9DDB6 


FMOVE 

9- 

9 TH18 ROUTINE WILL MOVE THE 
9 CONTENTS OF FRO INTO FR1. 

9- 


i F3 


9 


LDY #902 
LDA FRO, 
8TA FR1, 
DEY 

BPL iF3 
RTB 


Y 

Y 


9- 9 02E0 

.WORD CONTINUE 


Listing 7. 
Assembly listing. 


9- 

9 SAVE *DiINTBA8I2.ASM 
9 A8M,,#DiINTBA8IC.OBJ 

9- 

9 by Barry Green 
9 Out of the Blue Associates 

9- 

9 This is a math package designed 
9 to replace the floating-point 
9 package in the ATARI 64K XL 
9 computers. This package is 
9 entirely 1nteger-based so it 
9 is much faster. Its internal 
9 representation of numbers is 
9 still referred to as Floating- 
9 point, merely for convenience. 

9 This representat1 on differs 
9 from standard 6302 integers in 
9 that there is an exponent byte 
9 of 940 added to it. Integers can 
9 still be used in FPI and IFP 
9 because these routines restore 
9 the numbers to proper order. 

9 This version accepts integers 
9 in the range of -32768 to 32767. 
9 Any number entered which is 
9 greater than 32767 will be 
9 converted to a negative number. 

9 These negatives are fully 
9 usable and have the same value 
9 as what was entered, they just 
9 print out as negative. 

9 Far example, if the user entered 
9 FOR X *30000 to 63333 and then 
9 LISTed that line, it might say 
9 FOR X *30000 to -1. It will work 
* exactly as you wanted, it Just 
9 prints out as a negative. 

9 Statements such as POKE 33248,0 
9 are still perfectly legal, they 
9 Just may look different than 
9 what you expected. 


•OPT NO LIST 


FRO 


9 D 4 

F RE 


9 DA 

FR1 


9E0 

INBUFF 


9F3 

Cl X 


9F2 


8KIP.BLANKS - 9DBA1 
INTLBF - 9 DAS 1 

LBUFF - 90380 

FLPTR - 9FC 


9- 90600 

8T ART 

9- 

9 MOVES THE XL 08 TO RAM 
9 THIS CODE 18 BASED ON THE 
9 OFFICIAL RELEASE FROM ATARI INC. 
9 .AND WAS WRITTEN BY THEM. 

9- 


ROM 


9CB 


RAM 


ROM + 2 


08R0M 


9C000 


08 R AM 


94000 


NMIEN 


9D40E 


PORT B 


9D301 



J SR 

INIT 

8ET P0INTER8 

MO V 1 

LDA 

(ROM),Y 

MOVE THE ROM 


8T A 

(RAM),Y 

INTO RAM 


INY 




BNE 

MO V 1 



INC 

ROM+1 



INC 

RAM+1 



DEX 




CPX 

• 930 



BNE 

i Ml 



J8R 

SKIP 

SKIP I/O 

i Ml 

CPX 

#900 



BNE 

MOV 1 


9 

8EI 




LDA 

*900 

DISABLE THE 


BT A 

NMIEN 

INTERRUPTS 


LDA 

#9FE 



8T A 

PORTB 

FLIP ROM OUT 

9 

J8R 

INIT 


M0V2 

LDA 

(RAM),Y 

MOVE THE OS 


8 T A 

(ROM),Y 

BACK INTO THE 


INY 


RIGHT ADDRESSES 


BNE 

M0V2 



INC 

ROM-*-1 



INC 

RAM+1 



DEX 




CPX 

• 930 



BNE 

i M2 



JSR 

8KIP 


i M2 

CPX 

#900 



BNE 

M0V2 


9 

CLI 




LDA 

#940 

RE-ENABLE THE 


ST A 

NMIEN 

INTERRUPTS AND 

9- 

RTS 


RETURN. 


9 INITIALIZE PAGE ZERO VARIABLES 
9 FOR ADDRESSES OF RAM AND ROM 
9 U8ED FOR INDEXING 

9- 

INIT LDA * < 08R0M 

8T A ROM 
LDA • >0SR0M 
ST A ROM+1 
LDA « < 08RAM 
ST A RAM 
LDA « >08RAM 
8 T A RAM+1 
LDX #940 
LDY *900 
RT8 


9 BET PAGE ZERO VARIABLES TO 
9 SKIP THE HARDWARE REG 18TER8 

9- 

SKIP 


SKIP1 


LDY 

#908 

I NC 

ROM+1 

INC 

RAM+ 1 

DEX 


DEY 


BNE 

SKIP1 

RTS 



SET THE INIT ADDRESS TO D08 80 
ALL THE PREVIOUS CODE WILL BE 
EXECUTED AND THE RE8T OF THE 
PROGRAM WILL LOAD INTO THE TOP 
16K AND REPLACE THE OLD MATH 
PACKAGE. 

9- 902E2 

.WORD START 


9 THIS JUST RETURNS CONTROL TO 
9 DOS AFTER THE INTEGER MATH 
9 PACKAGE HAS BEEN LOADED IN. 


9 FOLLOWING ARE THE ACTUAL MATH 
9 ROUTINES WHICH LOAD RIGHT ON 
9 TOP OF THE OLD 0NE8. 

9- 

9- 9D800 

AFP 

9- 

9 C0NVERT8 A8CII TO NUMBER VALUE 


JSR 

SKIP.BLANK8 

LDA 

#940 


STA 

FRO 


LDA 

• 900 


STA 

FRO+l 


STA 

FR0 + 2 


STA 

8EC 

PHP 

FRO + 3 


LDY 

C I X 


LDA 

(INBUFF), 

l y 

CMP 

# ' 0 

18 


IT A DIGIT*’ 



BCC 

■ 2 

IF NOT, THEN 


CMP 

• '9+1 

BRANCH TO 


BC8 

i 2 

THE RETURN. 


PLP 




CLC 

PHP 




AND 

• 90F 



PHA 


SAVE THE DI6I 

9- 

LDA 

FR0 + 2 

MULTIPLY THE 


8 T A 

FRO + 3 

NUMBER BY 10 


LDA 

FRO + l 

BEFORE ADDING 


A8L 

A 

IN THE NEW 


ROL 

FRO + 3 

DIGIT. 


ASL 

A 



ROL 

FRO + 3 



CLC 




ADC 

FRO + l 



8T A 

FRO+l 



LDA 

FRO + 3 



ADC 

FRO + 2 



STA 

PRO + 2 



A8L 

FRO+l 



ROL 

FRO + 2 


9- 

PLA 




CLC 

ADC 

FRO+l 



8T A 

FRO+l 



BCC 

i B 



INC 

FRO + 2 


. B 

INC 

Cl X 



JMP 

i 0 


I 2 

PLP 

RTS 



9- 

9- 

9DBE6 



9- 

9 C0NVERT8 INTE6ER8 INTO ABCII 
9 CHARACTER STRINGS. 


9- 

J8R 

INTLBF 


LDA 

FRO+l 


8T A 

F RE + 2 


LDA 

FRO + 2 


STA 

FRE + 3 


BPL 

lOO ) 9 9 9 


LDA 

FRO+l |999 


EOR 

* 9FF | 9 9 9 


CLC 

| 999 


ADC 

• 901 | 9 9 9 


8T A 

FRO + l J 9 9 9 


LDA 

FRO + 2 | 9 9 9 


EOR 

•9FF >999 


ADC 

• 900 | 9 9 9 


STA 

FRO + 2 )9 9 9 


LDY 

• 900 | 9 9 9 


LDA 

#’- I 9 9 9 


STA 

(INBUFF),Y i 999 


INC 

INBUFF | 9 9 9 


BNE 

lOO | 9 9 9 


INC 

INBUFF+1 | 9 9 9 

i 00 

LDY 

#900 

i 02 

LDX 

#900 

l 01 

LDA 

FRO+l 


CMP 

LO.BYTE8,Y 


LDA 

FRO + 2 


SBC 

HI.BYTES,Y 


BCC 

NEXT.DIGIT 


LDA 

FRO+l 


SEC 

SBC 

LO.BYTES,Y 


8T A 

FRO+l 


LDA 

FRO + 2 


SBC 

HI.BYTES,Y 


STA 

FRO + 2 


I N X 



JMP 

i 01 

NEXT. 

DIGIT 



TX A 
ORA 

• 930 


STA 

( INBUFF) , Y 


INY 
CP Y 

• 903 


BNE 

i 02 


DEY 

LDA 

( INBUFF) ,Y 


ORA 

• 980 


STA 

(INBUFF),Y 

9- 

9 NOW 

REMOVE 

THE LEADING ZER0E8 

9- 

LDY 

• 900 

i 03 

LDA 

( INBUFF) , Y 


CMP 

#' 0 


BNE 

i 04 


INY 

JMP 

i 03 

i 04 

8 T Y 

FRE + 4 


LDA 

INBUFF 


SEC 



SBC 

FRE + 4 


STA 

FRE 


LDA 

INBUFF+1 


SBC 

#900 


STA 

FRE ♦ 1 

i 03 

LDA 

( INBUFF) ,Y 


STA 

(FRE),Y 


INY 



CP Y 

#903 


BNE 

i 03 


LDA 

FRE + 2 


STA 

FRO+l 


LDA 

FRE + 3 


STA 

FRO + 2 


BPL 

l06 | 9 9 9 


LDA 

INBUFF |999 


BNE 

l07 i 9 9 9 


DEC 

INBUFF+1 | 9 9 9 

i 07 

DEC 

INBUFF | 9 9 9 

i 06 

9- 

RT8 



9 THE FOLLOWING ARE TABLES USED 
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.*5. Integer BASIC continued 


9 IN CONVERTING NUMBERS TO 
* A8C I I CHARACTER 8TRINGS. 


9- 

HI.BYTE8 

. BYTE 

>10000 


. BYTE 

>1000, >100 


. BYTE 

>10, >1 

LO.BYTES 

. BYTE 

< 10000 


. BYTE 

<1000, <100 

9- 

. BYTE 

<10, <1 



LDA 

FRO+1 

IF RE8ULT 


ORA 

FRO + 2 

IS ZERO THEN 


BNE 

i 1 

ZERO OUT THE 

t 1 

9- 

FMUL 

8 T A 
CLC 
RT8 

9- 

FRO 

9DADB 

EXPONENT. 


IFP 


9- tD?AA 


9 TH18 ROUTINE WILL CONVERT AN 
9 INTEGER TO FLOATING POINT, 

9 WHICH 18 SIMPLY LOW BYTE-HIGH 
9 BYTE FORMAT WITH AN EXPONENT. 

9 - 

LDX FRO 
LDY FRO+1 

LDA #940 |EXPONENT 

ST A FRO 

8TX FRO+1 

STY FRO+2 

CLC 

RTS 

9 - 

9- 9D9D2 

FPI 

* - 

9 THESE ROUT INE8 WILL CONVERT A 
9 FLOATING POINT NUMBER BACK TO 
9 INTE6ER FORMAT. 

9 - 

LDA FRO+1 
ST A FRO 
LDA FRO+2 
STA FRO+1 
CLC 
RT8 


THIS ROUTINE WILL MULTIPLY 
THE C0NTENT8 OF FRO BY THE 
C0NTENT8 OF FR1 AND STORE THE 
PRODUCT BACK INTO FRO. 

.LOCAL 
LDA #0 
8T A FRE+1 
STA FRE 
LDX #16 
BNE i 1 
l CLC 

LDA FRE+1 
ADC FR1+1 
8T A FRE + 1 
LDA FRE 
ADC FR1+2 
BT A FRE 


•- 9DA60 

JMP F8UB2 


9- 9DA66 


9• 9DB28 

FDIV 

9- 

9 THIS ROUTINE WILL DIVIDE THE 
9 C0NTENT8 OF FRO BY FR1 AND 
9 STORE THE RE8ULT INTO FRO. 

9- 

.LOCAL 


9- 





_ 


LDA 

FR1 + 1 

« 

THE8E 

ROUTINES WILL 

ADD AND 



ORA 

FR1+2 

9 

SUBTRACT INTEGERS. 




BEQ 

iERROR 

9- 





— 


LDA 

• 0 



LDA 

FRO+1 




8T A 

FRE+1 



CLC 





8T A 

FRE 



ADC 

FR1 + 1 




LDY 

• 16 



STA 

FRO+1 



i 2 

ASL 

FRO+1 



LDA 

FRO + 2 




ROL 

FRO + 2 



ADC 

FR 1+2 




ROL 

FRE+1 



STA 

FRO + 2 




ROL 

FRE 



CLC 





8EC 




RT8 





LDA 

FRE+1 

9- 





—— 


SBC 

FR1 + 1 

FBUB2 






TAX 


9 


— 



— 


LDA 

FRE 



.LOCAL 




BBC 

FR 1 +2 



LDA 

FRO+1 




BCC 

i 1 



SEC 





BT X 

FRE + 1 



SBC 

FR1 + 1 




8TA 

FRE 



STA 

FRO+1 




INC 

FRO+1 



LDA 

FRO + 2 



i 1 

DEY 




SBC 

FR 1 +2 




BNE 

i 2 



STA 

FRO + 2 




CLC 




A8L 

FRO 

THIS 8ET8 

THE 


RTS 




LDA 

FRO + 2 

SIGN BIT 

IN THE 

iERROR 





A8L 

A 

EXPONENT 

FOR 


SEC 




ROR 

FRO 

BA8IC'8 COMPARE. 


RT8 



9- 9DD09 

FLOOR 

9- 

9 THIS ROUTINE WILL LOAD FRO 
9 FROM THE ADDRESS POINTED TO 
9 BY THE 6302 X,Y REGISTERS. 

9 OR FLDOP HILL LOAD IT FROM THE 
9 CURRENT ADDRES8 OF FLPTR. 


BT X 

FLPTR 

STY 

FLPTR+1 

LDY 

• •02 

LDA 

(FLPTR) 

8T A 
DEY 

FRO, Y 

BPL 

RTS 

i FI 

9- 

• DDY8 


FLD1R 


9 THIS ROUTINE WILL LOAD FR1 
9 FROM THE ADDRESS POINTED TO 
9 BY THE 6302 X,Y REG 18TERB. 

9 OR FLD1P WILL LOAD IT FROM THE 
9 CURRENT ADDRE88 OF FLPTR. 

9- 


i 1 

L8R 

FRE 


8TX 

FLPTR 


ROR 

FRE+1 


8TY 

FLPTR+1 


ROR 

FRO + 2 

FLD1P 




ROR 

FRO+1 


LDY 

• •02 


DEX 


i F3 

LDA 

(FLPTR) 


BMI 

i 3 


BT A 

FR1 , Y 


BCC 

i 1 


DEY 



BC8 

i 2 


BPL 

i F3 

i 3 

CLC 



RTS 



RTS 


9- 



9- 



— 

9- 

• DDA7 


F8T0R 

9- 

9 TH18 ROUTINE WILL STORE FRO 
9 INTO THE ADDRE88 POINTED TO 
9 BY THE 6302 X,Y REGISTERS. 

9 OR F8 TOP WILL STORE IT INTO THE 
9 CURRENT ADDRESS OF FLPTR. 


9- 

ST X 

FLPTR 


STY 

FLPTR+1 

F8T0P 

LDY 

• •02 

l F4 

LDA 

FRO, Y 
(FLPTR),Y 


STA 


DEY 



BPL 

l F4 


RT8 


9- 

9- 

• DDB6 

FMOVE 




9 THIS ROUTINE WILL MOVE THE 
9 CONTENTS OF FRO INTO FR1. 

9- 

LDY ##02 

lF3 LDA FRO , Y 

STA FR1,Y 
DEY 

BPL iF5 
RTS 

9- 

9- 902E0 

•WORD CONTINUE 
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by Dave Pettit 


Having played Atari’s Star Raiders for 
years, I’ve learned a few interesting ways 
to play it faster and more accurately. Some 
of my strategies are extensions of what the 
instruction manual says; some are applica¬ 
tions of other people’s strategies; and still 
others are unwritten facts of how the game 
progresses. I hope these ideas will help all 
players, from Novice to Commander. 

The facts here have been grouped by 
topics, arranged in alphabetical order— 
except for “Miscellaneous Strategies” and 
specifics about the Commander Mission, 
which are placed at the end. Ideas are ar¬ 
ranged within a category so that practical¬ 
ly anyone can use the beginning sugges¬ 
tions, while more able navigators will see 
uses for the later concepts. When an idea 
involving damaged or destroyed equipment 
is given, it’s placed at the section’s end. 

You can read this article through or use 
it as a reference. Say you want to find out 
what you can do to locate a starbase when 
both your Tracking Computer and Long- 
Range Scan are damaged. You should look 
under each section—Starbase, Tracking 
Computer and Long-Range Scan. You’ll 
probably find just what you need in one. 

MX view. 

1. When in aft view, the joystick direc¬ 
tions are reversed from those of the front 


view. An easier way to learn this: the con¬ 
trols are the same as for hyperwarp in PI¬ 
LOT and higher missions (push left and go 
right; pull back and go down). 

2. Don’t use the strategy that some take 
—turning your starship around to get a pur¬ 
suing enemy. That takes too much time, and 
you may get hit in the process. 

3. If you must turn around (say, to pur¬ 
sue a distant enemy behind you), turn to 
the left or right, up or down, so the horizon¬ 
tal or vertical direction indicators (theta and 
phi) become larger in absolute value. For ex¬ 
ample, if you turn so the indicator changes 
from - 350 to 0 and then from 0 to + 475 
(at which time, the Tracking Computer goes 
to front view), you’ll have wasted a lot of 
time. It’s better to go from - 350 to - 475 
first. Keep turning to 0, once in front view, 
to center the enemy. 

4. When turning around from aft to front 
view, an enemy can be as much as 40 me- 
trons farther away. 

5. If an enemy is pursuing you in aft view 
and your engines are on, you can slow way 
down (say, from 6 to 4) and keep firing as 
they approach. If they don’t get hit, they’ll 
probably pass you by. But, as they pass and 
your screen changes to the front view, you 
can speed back up to 6 or 7 to match their 
speed. This keeps them close to you, so you 
can shoot them when they least expect it. 
A very effective strategy, this does use a lot 
of energy (see “Engines,” #1, below). 


Engines. 

1. Don’t rely on your engines too much 
in finding the enemy; if they go out, you're 
practically stranded. Conserve fuel as much 
as possible and wait for the enemy to come 
to you. 

2. William Colsher wrote in the Novem¬ 
ber/December 1980 issue of Compute! that 
saving energy is one of the most important 
ways to increase your rating. He’s right. But 
new players should chase and shoot at the 
same time, so they can practice aiming. 
This will keep most of the enemy in close 
range, where they’ll be larger and easier to 
hit. Speeds of 5 or 6 are recommended 
here. In time, players will learn when to 
shoot and when to wait, based on where 
the enemy is on the screen. 

3. Mr. Colsher does not emphasize 
enough that some enemy ships do not at¬ 
tack you—you have to go after them. The 
need for this can be determined by center¬ 
ing them in the Attack Computer Display 
and observing the range indicator. If the 
range is getting larger or staying constant, 
you’ll have to chase them down with a 
speed of 6 or 7. If the range is getting smal¬ 
ler, wait them out. 

4. Most enemies travel at 0 or 6. If you're 
chasing one at 6 and the range doesn’t 
change (or if you don’t catch them soon), 
they’re playing cat and mouse with you. In¬ 
crease your speed to 7 if you really want 
to catch them. 

5. Sometimes you notice in the Long- 
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Range Scan (or with the Tracking Compu¬ 
ter) that one enemy is pursuing you from 
the back, while another is standing still, 
dead ahead. By pressing a 4 or 5, you can 
head for the forward enemy and allow the 
other one to catch you. Then blast the one 
you see first and the other soon after. That 
saves a little time and, probably, some 
energy. 

6. Practice moving at speeds of 7, 8 and 

9. Try going this fast and shooting meteors. 
It’s tough, but will improve your steering 
and aiming abilities. 

7. Sometimes—at high speeds—it’s im¬ 
possible to turn around and face in anoth¬ 
er direction with the Tracking Computer 
on. You must stop all your engines, turn 
around, then turn on the engines again. 

8. If you need to destroy your starbase 
or an enemy starship quickly, don’t hesitate 
to use a speed of 8 or 9. The loss of energy 
is small when weighed against the loss of 
a starbase to Zylon ships. 

9. A speed of 9 with damaged engines 
is the same as a speed of 7 with normal en¬ 
gines. Use this factor to catch a fleeing 
enemy. 

10. If your engines do get destroyed while 
your enemy is 300 metrons away and not 
approaching you, you can catch the ship 
using your Long-Range Scan and hyper¬ 
warp. Simply set up the enemy directly in 
front of you with the Long-Range Scan (see 
“Long-Range Scan,” #6). Then press the H 
key and steer toward that ship, so that it re¬ 
mains in front of you till it’s in the first 
third of the screen in front of your location 
(you’re still in Long-Range Scan). Now 
press any number key and the F key. The 
enemy should be within visual range. This 
will cost you only about 100 mergs (units 
of energy), the same amount you’d use with 
your engines working to take out an ene¬ 
my at the same distance—but this method 
is considerably faster. You’ll have to experi¬ 
ment with this to get it to work for you. 

11. Use the above technique, but, instead 
of pressing a number key to coast toward 
the enemy, time the pressing of the num¬ 
ber key so that the enemy will pass by you 
a bit and have to catch up later. This may 
avoid your getting blasted from the front. 

12. If your engines and Long-Range Scan 
are both destroyed, you can use hyperwarp 
in short bursts to catch an enemy or to get 
closer to a starbase. Be sure to keep an eye 
peeled for a passing Zylon starship or star- 
base. Be careful, or this can waste a lot of 
time and energy. 

13. Destroyed engines operate at a nor¬ 
mal speed of about 5 when any key from 
5 to 9 is pressed. Keys from 1 to 4 produce 
speeds just smaller than your normal 1 to 
4 speeds. 

Galactic Chart. 

1. The enemy will move on Star Dates in 
x.00 and x.50, except 0.50 and for 100 cen- 
tons after surrounding a starbase. It’s help¬ 
ful to know this when you’re starling a new 


game or wiping out the enemy around a 
starbase—they (and all other Zylon star- 
ships) sit and wait for 100 centons, even if 
the starbase is no longer surrounded! 

2. Normally, when beginning a hyper¬ 
jump, it takes about 8 centons to complete. 
Thus, the Star Date should not be in the 
ranges of x.42 to x.49 or x.92 to x.99. How¬ 
ever, it’s possible to speed up your travel 
time by remaining with the Galactic Chart 
on-screen for a few seconds. This can re¬ 
duce travel time by 1 or 2 centons, but be 
careful in missions above Novice—you may 
not be able to recenter the target marker 
quickly enough to get to the proper sector. 

3. Enemy starships line themselves up 
horizontally and vertically, with a starbase 
first. They then move in a straight line to¬ 
ward the base to surround it. They seldom 
move diagonally (see “Galactic Chart,” #11). 

4. Enemy ships do move diagonally when 
traveling around a starbase. 

5. Zylon starship sectors of 1 or 2 enemy 
ships (patrol groups) usually move every 50 
centons. Use this to predict their travels. 
You decide if you’ll have time to destroy a 
4-Zylon sector. You might decide to aim for 
a blind sector if your Sub-Space Radio is 
out, or if you didn’t watch the clock well 
(refer to “Galactic Chart,” #2, above). 

6. If the enemy seems to be converging 
on a starbase on the left and the Zylon star- 
ships are on the right, most patrol groups 
will move toward the base in a horizontal 
or vertical line. Thus, you can predict the 
enemy’s next sector. Use this information 
to plan your next move when the Star Date’s 
about to change ("Galactic Chart,” #2, a- 
bove), or while waiting for a distant Zylon 
starship in your sector (see “Galactic Chart,” 
#8, below; also see #11 for the reason why 
and the movement of Zylon starships in the 
other direction). 

7. The enemy will most often move to¬ 
ward a group of starbases, rather than a lone 
one. But that doesn’t mean that they never 
go for the lone bases. 

8. If you’re waiting for the final Zylon 
ship in a sector to approach and attack, use 
the Galactic Chart to plan and position your 
next move. After destroying the Zylon star- 
ship—and if the Star Date permits (see 
“Galactic Chart,” #2)—you can hyperjump 
without looking at the chart again. This can 
save time and energy. 

9. When you've been in a sector for a 
considerable amount of time, consider up¬ 
dating the Galactic Chart. You can do this 
quickly by typing GF. The fraction of a sec¬ 
ond that the chart is on will be enough to 
update it. You won’t miss too much action, 
and you’ll be able to avoid problems should 
your Sub-Space Radio go out. 

10. Also, type a quick GF when a star- 
base is first surrounded and you choose to 
finish clearing the sector you’re already in. 

11. The Zylon starships in the Galactic 
Chart are positioned from the left side of 
the top row. Each sector is placed or left 


alone, through to the last sector in that row. 
Each row is positioned in this way, with the 
sector in the lower right located last. If a 
series of enemies is traveling toward a star- 
base on the right, the leftmost Zylon star- 
ship sectors will move diagonally. If the 
Zylon starships are clumped to the right, 
moving toward a starbase on the left, all 
sectors could move as a group. 

12. When you’ve eliminated most enemy 
sectors and enemy ships are grouped, use 
the rook-mate strategy of chess — don’t al¬ 
low any enemy to pass a chosen horizontal 
or vertical line in the chart. Slowly elimi¬ 
nate the closest enemy first, eventually 
moving through all enemy sectors. 

13. Groups of four enemy starships are 
slower and don’t move often. They’re good 
bets for remaining stationary when your 
Sub-Space Radio is out, or when you’ve for¬ 
gotten to check the Star Date before select¬ 
ing hyperwarp. 

Hyperwarp. 

1. When in hyperwarp, the directions say 
that it’s necessary to keep the target mark¬ 
er in the center of the cross hairs. This is 
true only at the critical moment of enter¬ 
ing hyperspace—that is, when the veloci¬ 
ty reaches 99 metrons/second. Knowing 
this will allow you to scratch your nose, 
make a quick check of the Galactic Chart 
or do practically whatever you want—and 
still reach the sector you aimed for. 

2. Use as many of your senses as you 
can. Listen to the sound of your engines at 
the moment before entering hyperwarp. If 
you can learn what that volume is, keep¬ 
ing the target marker in the right place at 
the right time will be easier. 

3. Using jerky wiggles of the joystick is 
the easiest way to steer. Also, better con¬ 
trol can be obtained by bolding the top of 
the stick, rather than the middle. 

4. Mr. Colsher is generally correct in his 
rule about not jumping more than four sec¬ 
tors at one time. The cutoff point actually 
occurs when the hyperwarp energy requir¬ 
ed changes from 260 to 500 mergs. Use two 
jumps, rather than a single energy-wasting 
one, to get to the desired sector. 

5. If you must use 260 mergs in a hyper¬ 
jump, be sure to steer carefully, or you may 
go off course by enough to use 500 mergs. 
If in doubt, either set up 250 mergs while 
on the Galactic Chart, or aim back from the 
center of the cross hair a little bit (see 
“Hyperwarp,” #8). 

6. Mr. Colsher’s rule (“Hyperwarp,” #4, 
above) ought to be amended further —don’t 
hyperjump too far except in an emergency. 
The emergency might be a surrounded star- 
base or a lack of photons or shields. Just 
don’t do it often in a game. 

7. Be extra careful when hyperjumping 
to a sector on the edge of the Galactic Chart. 
A small error in navigation may put you on 
the wrong side of the galaxy, not to men¬ 
tion causing a huge energy loss. 

8. A little experimentation will show that 
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the book is right: if you position the hyper¬ 
warp target marker a little off center, you 
can hyperjump to a neighboring sector from 
the one set in the Galactic Chart. This might 
be helpful if your shields go down, or if the 
enemy moves just as you press H. It can 
also be used when you know (or can bet) 
that the enemy will move from where you 
last saw them. Simply aim the target marker 
off center by one or more widths of the 
marker for each sector that you wish to 
move (see Figure 1). You should be able to 
move up to four sectors away with only a 
modicum of experimenting. You could, for 
example, display the Galactic Chart, find a 
nearby enemy or starbase, and hyperjump 
there without doing any positioning on the 
chart. This really speeds up the game. You 
should try this in Novice level first; it’s 
much easier there. 


I I 

A B 

Figure 1. 

If no aim is given, the target marker (+) is posi¬ 
tioned off of a norma] Galactic Chart aim, or away 
from your present sector—either by two sectors 
to the left (A) or by three sectors to the right and 
one up (B), 

9. Not only can’t you shoot in hyperwarp, 
but you can’t be shot at. At least, you can’t 
be shot at as long as you’ve reached a mini¬ 
mum speed. 

10. When entering an enemy or starbase 
sector, or when seeking out a distant Zy- 
lon ship, use the Attack Computer Display 
and your own hyperjump momentum to 
help steer the ship to the desired location. 
If the target is right or left of center in the 
display, push the joystick in that direction. 
If the target is high, pull back (called “nose 
up"); if low, push forward (called “nose 
down”). It’s possible to steer yourself to 
within sight range of a starbase more often 
than not by using this method. 

11. Use hyperwarp within a starbase sec¬ 
tor to get to your goal faster. This is espe¬ 
cially handy with distant starbases and/or 
destroyed engines. Use your engines for 
docking maneuvers as needed. 

12. In hyperwarp, the range indicator will 
work for distance to a starbase in your sec¬ 
tor, but not for distance to an enemy. 

13. During hyperwarp, the Sub-Space Ra¬ 
dio doesn’t update the Galactic Chart. If a 
starbase is surrounded because of poor tim¬ 
ing, you will have to change course (see 
"Hyperwarp,” #8), do a quick check of the 
Galactic Chart (see “Pause Key,” #2), or can¬ 
cel the hyperwarp. 

14. If your Tracking Computer goes out, 
steering to another sector in hyperwarp can 
be difficult. The center of the screen— 
where the tarket marker is supposed to be 
— is the point at which no stars appear. You 


can see this easily in Novice level by start¬ 
ing hyperwarp and turning your Tracking 
Computer off. The target marker will be 
positioned correctly. 

Long-Range Scan. 

1. Another way of centering an enemy, in¬ 
stead of the Attack Computer Display, is the 
use of the horizontal and vertical displays 
on the Long-Range Scan screen. By adjust¬ 
ing them both to 0, you’ll find the target 
is straight ahead (see “Long-Range Scan,” 
#6, below). 

2. On the Long-Range Scan, little orange 
rectangles represent tire Zylon starships and 
a “dummy starship.” Which is which? The 
one that disappears and reappears occasion¬ 
ally is the dummy, so go after the other one. 

3. The orange rectangles that shoot or 
move rapidly are the enemy. 

4. When in a starbase sector, the rectan¬ 
gle changes to a starbase shape. 

5. When you’ve no better clues as to 
which rectangle is the dummy (and your 
Tracking Computer is out) go from L to G 
or F, and then back to L. If one of the rec¬ 
tangles moved drastically and isn’t moving 
much now (or has disappeared), it is prob¬ 
ably the dummy. 

6. If your Tracking Computer is destroy¬ 
ed, it’s still possible for you to get closer 
to a starbase or the enemy. As soon as 
you’ve entered the sector, press L. What¬ 
ever you're searching for will come into 
view on the Long-Range Scan screen. Po¬ 
sition it in the top half of the screen, direct¬ 
ly in front of your ship by pushing the joy¬ 
stick left or right. Then move the stick for¬ 
ward and backward to “stretch out” the 
target—to get it to its maximum distance 
from you. (This is the same as being in the 
center of the Attack Computer Display in the 
front view.) As soon as the target is close 
to the center of the Long-Range Scan, go 
to the front view and dock or shoot, what¬ 
ever is appropriate. 

7. Apparently, it’s not possible for both the 
Tracking Computer and Long-Range Scan 
to be destroyed together. At least one will 
be usable to locate an enemy or a starbase. 

8. Of course, a destroyed Long-Range 
Scan won’t tell you where the enemy ships 
are, but it will tell if there are none, one, 
or (at least) two of them in your sector. Just 
count the little orange rectangles. One is a 
dummy; any others are Zylon starships. 

Manual Target Selector. 

1. In a sector with more than one Zylon 
ship, don’t be tricked, while waiting for one 
enemy, into ignoring another. Use the M key 
and the range indicator to see if another 
enemy is approaching— and to find out 
which one will get to you first. 

2. When entering an enemy sector where 
a large distance must be traveled to catch 
an enemy, use the Manual Target Selector 
to see if a second enemy is closer. If less 
than 400 metrons away, an enemy can 
usually be caught with hyperwarp momen¬ 


tum (mentioned earlier; “see Long-Range 
Scan,” #6). 

3. Sometimes you can cause an enemy 
to approach you by using the M key. It's as 
if they realize that they’re being “scanned,” 
so they decide to attack. 

4. When all Zylon starships in a sector 
are killed, the Manual Target Selector will 
switch to two different values. Don’t be con¬ 
fused and start looking for non-existent 
enemies. 

Pause Key. 

1. You can use the pause key (P) to tem¬ 
porarily stop the game action and plan an 
attack strategy. However, some purists may 
find this a form of cheating. 

2. Use this key if you've just entered 
hyperwarp, then received notice of a sur¬ 
rounded or destroyed starbase. To do this, 
type GP quickly and don’t touch the joy¬ 
stick. Determine what your move should be, 
realizing that the Galactic Chart hasn’t been 
updated since you saw it last (see “Hyper¬ 
warp,” #13). Plan on using offset navigation 
of the target marker (see “Hyperwarp,” #8), 
then press the F key before moving the 
stick, so you can start steering as soon as 
you disengage the pause. Of course, if you 
decide to cancel hyperwarp, press a num¬ 
ber key and move the joystick. 

3. If you pause long enough, the enemy’s 
strategy may change. Many times a Zylon 
ship that won’t pursue you when your en¬ 
gines are out will pursue you after several 
minutes on pause. This may only be a coin¬ 
cidence (it doesn’t happen every time), but 
it’s been observed after many unplanned in¬ 
terruptions. 

Photons—yours and theirs. 

1. You can’t hit an enemy often by just 
shooting. You need to steer with the joy¬ 
stick, then fire. It takes a coordinated ef¬ 
fort, frustrating many beginning players. 

2. Zylon starships can shoot only one 
photon at you at a time. You, however, can 
shoot photons two at a time. 

3. It’s best to shoot in bursts of two. With 
the photons coming out of alternate tubes, 
you may forget which one will fire next. 
By shooting twice, you can guarantee that 
the tube you want to fire will. 

4. Many times an enemy is destroyed just 
after they’ve shot at you. Don’t get caught 
by that last shot. Either get out of the pho¬ 
ton’s way or shoot it down. too. 

5. The cross hairs in the front and aft 
views are set for distant shots. The closer 
the enemy, the lower the ship must be in 
the view screen for you to hit it directly 
with a photon. Seldom can an enemy be 
hit above the horizontal cross hair (but see 
“Photons,” #12). You can check this by fir¬ 
ing two shots very quickly and freezing 
them with the P key. You can continue to 
release and freeze them by alternately mov¬ 
ing the joystick a small amount and then 
pressing P again. 

6. When an enemy keeps matching you 
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with photon after photon, only to have them 
both explode, there are two ways to hit that 
ship. First, wait for the enemy’s photon to 
come very close to you—but low enough 
so that it will pass without damage. Then 
fire away. The photons will pass each oth¬ 
er, with yours striking the enemy. 

7. The second way to get around this pro¬ 
blem is to turn your ship to the left or right, 
so the other photon tube can be used to hit 
the enemy ship. It’s as if the enemy keeps 
blocking your right jabs, then gets punched 
with your left hook! 

8. A long, distant shot coming toward you 
(especially in Command level) can be hard 
to avoid or destroy. Normal reaction for a 
high photon is to pull back on the joystick, 
going nose up. Instead, do the reverse: push 
forward after shooting your photon. If you 
time it right, your shot will float up and 
strike the enemy’s photon. 

9. The only time a photon of yours will 
curve up by itself is when the enemy is dead 
center and very close, called “lock-on” in 
the manual. Both photons fire in this con¬ 
dition. Don’t try to create this condition. In¬ 
stead, learn how to kill an enemy with 
single shots when you’re ready, rather than 
waiting for the ship to reach the right po¬ 
sition. 

10. One time that lock-on is effective and 
frequent is in combatting an enemy at point- 
blank range. Usually, each single shot blocks 
one of the enemy’s. When double shots are 
sent out, one usually blocks an opponent’s 
shot, while the other takes out the starship. 
Sometimes, when a shot misses the enemy, 
this process requires three or more pairs 
of shots. 

11. When shooting the enemy at long 
range, give your photons enough time to 
reach the Zylon starships before shooting 
again. With the game only being able to 
keep track of two photons—one from each 
photon tube—at a time, you don’t want to 
waste a perfect shot by shooting again. You 
can see this in the Long-Range Scan by fir¬ 
ing twice, waiting a few seconds and fir¬ 
ing again. The farthest photon will dis¬ 
appear first. 

12. It is even possible to steer a photon 
after it has been fired! You can prove this 
by firing a photon and then moving the 
joystick to the right or left. If you hold the 
stick this way long enough, you’ll see the 
photon cross to the opposite side of the 
screen! By causing a nose-down action in 
front view (joystick forward), you can make 
a photon go above the horizontal cross hair. 
With practice, you can direct shots to hit 
enemy starships at great distances—and on 
opposite sides of the screen. Using this will 
save time and energy by destroying the ene¬ 
my more quickly. 

13. Here’s how to shoot and steer upon 
entering a sector. First, use the Attack Com¬ 
puter Display for initial steering (see “Hy¬ 
perwarp,” #10). Then, watch the range to 
the enemy. When it is less than 200 me- 


trons, shoot two shots. If you can see the 
enemy, steer one of the shots toward them. 
But don’t waste your time and energy fir¬ 
ing ten or twenty times at nothing. 

14. Don’t try to hit an enemy in Long- 
Range Scan. You won’t be successful often 
enough to make it worth your while. 

15. Shooting at an enemy farther away 
than 120 metrons may put them into attack 
mode. They will then come to get you. Try 
this in front view and in Long-Range Scan, 
too. 

16. If a Zylon starship shoots and is de¬ 
stroyed, but your Tracking Computer chan¬ 
ges views, you may need to avoid the 
enemy photon. To do this, turn away from 
the photon hard! After you’re sure the pho¬ 
ton has passed you, you may continue your 
attack on the next starship. 

17. If you listen carefully, you may notice 
a slightly different sound when you fire a 
photon after your photons have been dam¬ 
aged. The sound has a slightly deeper pitch. 

18. If in a heavy battle, where new dam¬ 
age to your ship has just occurred, fire one 
or two photons to make sure they’re still 
working. Don’t wait for the damage report 
and a Zylon ship to start attacking. 

19. If your photons are damaged, it can 
be difficult to destroy a close Zylon star- 
ship on the same side as the damaged pho¬ 
ton tube. What you need to do is keep the 
enemy low on the screen, as you move your 
ship to position enemies on the other half 
of the screen. Usually, they’ll still be shoot¬ 
ing in the same direction as they have been. 
As soon as they shoot, and when they’re 
right in front of the working photon tube, 
blast away! 

Shields. 

1. You’re always two shots or less from 
death: one for your shields and one for you. 
Be prepared to go into hyperwarp quickly 
when your shields go out, or you may die 
trying. 

2. If your shields go out, press H as 
quickly as possible. Don’t worry about view¬ 
ing the Galactic Chart. Just get out of there! 
When you have more time to think, move 
to a starbase with the help of the chart, and 
get your shields repaired. (Also, see “Pause 
Key,” #2.) 

3. If your shields are destroyed and you’re 
not being blasted by a close enemy, you 
might want to stay put and clear the sec¬ 
tor. When that’s been done, or if a more haz¬ 
ardous situation develops, by all means get 
out fast. 

4. If your shields are destroyed and you 
choose to play more, turn them off. It makes 
the screen easier to read and stops wast¬ 
ing valuable energy. Getting hit with no 
shields is the same as getting hit with de¬ 
stroyed shields. Just remember to turn them 
on when docking is over. 

5. If your shields are out, don’t use your 
engines unless you’re in front view. A me¬ 
teor may destroy you. 

6. Before leaving a sector with no shields. 


type F and the H, rather than the other way 
around. You may be able to avoid a meteor 
on your move. If the aft view appears, your 
forward path should be clear. 

Starbases. 

1. Games in which all the starbases are 
grouped together are easier to win than 
those in which they’re spread out. After try¬ 
ing to surround one starbase and failing, the 
enemy will move to another that is, in this 
case, close by. Some players may consider 
this cheating, but it’s a good temporary 
strategy. 

2. You need to get close to a starbase to 
dock, but how close? When you see three 
windows on each side of the starbase, stop 
your engines and move the joystick until the 
Docking Completed message appears. 

3. It takes 16 centrons to complete repairs 
after docking. Use this and the time to en¬ 
ter and exit (8 centrons each) to decide 
when to destroy a surrounded starbase 
yourself, when to stay docked, or when to 
attempt a docking. There’s also a varying 
amount of time to locate a starbase and 
dock with it. 

4. Docking too often wastes time and 
energy. Use tire following priority list for de¬ 
cisions on docking: (1) photons destroyed; 
(2) shields destroyed; (3) Sub-Space Radio 
destroyed; and (4) other problems. (See 
“Shields,” all paragraphs, and “Sub-Space 
Radio," #7, for more details and suggestions. 

5. While waiting for repairs at a starbase, 
use the Galactic Chart to plan your next 
move. Then hyperwarp as soon as docking 
is completed. 

6. There are no meteors in a starbase sec¬ 
tor, so turn your shields off when in these 
sectors to save energy. After docking, re¬ 
member to turn them back on. 

7. To save energy when docking, turn off 
the Tracking Computer, as there’s no need 
for it once the starbase is in sight. After 
docking is over, be sure to turn it back on. 

8. It’s possible to steer your ship with the 
momentum of hyperwarp directly to your 
starbase. If your range to the starbase upon 
entering the sector is 300 to 400 metrons, 
you can usually do it (see “Hyperwarp,” 
#10). Practice. 

9. If your hyperwarp momentum appears 
to be too fast and the starbase too close to 
dock, you can add some traveling distance 
by porpoising. This is done by making your 
ship go up and down several times very 
quickly. Do this by pushing forward and 
back on the joystick, quickly. In Figure 2, 
you can see that your starship will climb 
and drive to add the needed distance and 
avoid passing the starbase. 

10. If a starbase is about to be totally sur¬ 
rounded, you can attack early. By entering 
a sector next to that starbase, you can be 
destroying the enemy before the starbase 
is surrounded. You will then have a little 
less than 100 metrons to destroy the now 
stationary Zylon sectors. 

11. When a starbase is surrounded, go 
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Figure 2. 

The side view of your entering the sector from 
the left demonstrates two paths: Path 1 shows nor¬ 
mal entry and passing the starbase; Path 2 shows 
porpoising action to shorten overall travel dis¬ 
tance, to keep the starbase in front of your ship 
and, possibly, to complete docking maneuvers. 

after the groups of three or less Zylon star- 
ships. You need to be very skilled and have 
a lot of time to take out a group of four. 

12. If you have just barely cleared a sec¬ 
tor around a surrounded starbase and need 
to dock for repairs, it may be to your ad¬ 
vantage to wait for the next Zylon starship 
movement at star date x.50 or x.00. By your 
staying there, the Zylon starships can’t 
completely surround that starbase on that 
move. This will give you at least 150 me- 
trons to hyperwarp, dock, hyperwarp 
again, and destroy another enemy sector 
before the starbase could be surrounded 
again and destroyed. 

13. If a starbase has been surrounded for 
too long and its destruction is inevitable, 
do it yourself. 

14. It’s possible for more than one star- 
base to be surrounded at one time. This 
can happen when the two starbases are 
close together and several enemy have con¬ 
verged on the area. To prevent a double 
loss, destroy the Zylon starships in an in¬ 
tersecting sector as in Figure 3, below. 



Figure 3. 

Two starbases (S) are surrounded. To save them, 
attack either common sector with three Zylon 
starships. 

15. Suppose your starship is badly 
damaged: your Long-Range Scanner and 
Tracking Computer are out, so navigation 
is difficult. You decide to go to a starbase, 
but have always had trouble finding them. 
Don’t worry! Most of the time you’ll come 
within visual range of a starbase after a 
hyperjump. 

16. When all starbases have been de¬ 
stroyed, the enemy stop moving. Use your 
last Galactic Chart as a guide. All will not 
be lost now if your radio goes out, but you 
won’t make Star Commander this way. 


Sub-Space Radio. 

1. If a starbase is surrounded or destroy¬ 
ed just before you receive some damage 
or hyperjump into an enemy sector, the 
sound (and, sometimes, the word mes¬ 
sages) about the starbase will be bypassed 
for the new message. 

2. If your Sub-Space Radio is damaged, 
it still functions but doesn’t update the 
Galactic Chart. Simply move through the 
chart with the joystick and watch the num¬ 
ber of targets indicator. As long as it’s zero, 
keep searching. 

3. Although you can find enemy sectors 
with a damaged radio by using the targets 
indicator, a lot of time can be wasted. Also, 
you don’t get the big picture of enemy 
movement. 

4. With a damaged radio, you must be 
careful. You won’t he able to see if any star- 
base is about to be surrounded or de¬ 
stroyed. Of course, you will be notified by 
word message and beeps, when one is af¬ 
fected. 

5. If a starbase is surrounded while your 
radio is damaged, you can use the Galac¬ 
tic Chart and still find which one. Watch 
the targets indicator while searching the 
sectors around each starbase. If any sec¬ 
tor has no enemy, look around another star- 
base. And if the starbase is adjacent to a 
second starbase, make sure the second 
one’s not surrounded, as well (see “Star- 
bases,” #14). If it is, attack any sector of 
common enemy Zylon starships, no mat¬ 
ter how many there are, or you’ll lose one 
or both starbases. 

6. With a damaged radio, you won’t 
know of starbases that have moved since 
the last chart update. Otherwise, assume 
that they’re as shown on the chart. 

7. If your radio gets blasted, go ahead 
and get some more enemy before docking. 
But don’t wait too long or get too greedy— 
you may discover that one or more star- 
bases have been surrounded or destroyed 
while you were fighting! 

Tracking Computer. 

1. Turning on your Tracking Computer 
will help in shooting and in locating ene¬ 
my Zylon starships. Use the crosshairs as 
a guide in aiming your shots. 

2. The instruction book does not recom¬ 
mend the use of the Tracking Computer in 
Novice level, probably to reduce player 
confusion and because the enemy won’t at¬ 
tack from behind you. When used at this 
level, however, you can shoot at the ene¬ 
my in the aft view whenever possible. This 
can be helpful, as they can’t block your 
shots in this view. (See “Zylon Starships,” 
#2 and #4). 

3. The automatic tracking system of the 
Tracking Computer doesn’t use any extra 
energy. It will change the screen to front 
or aft view, to show the direction of the 
enemy who fired last. The only shortcom¬ 
ings occur in a crossfire (see “Zylon Star- 
ships," #19, #20, and #21) or when one 


enemy shoots and gets killed, but their 
shot still hits after your view switches (see 
“Photons,” #16). 

4. You don’t need to center an oncom¬ 
ing enemy with the Attack Computer Dis¬ 
play. For the most part, Zylon starships are 
“self-centering” on the attack —they sel¬ 
dom go for your blind sides. 

5. Don’t look at the Attack Computer Dis¬ 
play when the enemy is in visual range; 
look at the enemy directly. The display 
should be used when searching out distant 
enemies (see “Tracking Computer,” #6, 
below). 

6. If a distant enemy or your starbase 
goes off the screen, steer in the direction 
of the Attack Computer Display. If the im¬ 
age is in the lower left, for example, push 
the joystick to the front and left. Your ship 
will start pointing toward its object and, 
eventually, face the centered and/or visi¬ 
ble target. 

7. Don’t pursue a distant enemy totally 
through the use of the Attack Computer 
Display. You may ignore a meteor or a sur¬ 
prise attack by a second Zylon starship. 

8. By using the Attack Computer Display 
with a damaged Tracking Computer, you 
can still get to a target, but you won’t be 
able to use the number displays at the bot¬ 
tom of the screen. Instead, try to get the 
target centered in the Attack Computer 
Display. Then (or even while centering) use 
your engines to get to the target (see “En¬ 
gines,” #4 and #9). Practice helps. 

9. When your Long-Range Scan is de¬ 
stroyed, you can still find an enemy or 
your starbase with a partly or fully func¬ 
tional Tracking Computer (see “Tracking 
Computer,” #10, below). If the Tracking 
Computer is working, position the target 
in front of you (front view screen and a 
positive distance away). Then position it 
to the center of the Attack Computer Dis¬ 
play and, with the horizontal and vertical 
indicators on the screen set to about 0, en¬ 
gage your engines (or Hyperwarp as 
described in “Engines," #12), and steer 
with the target centered. 

10. When your Tracking Computer is de¬ 
stroyed and you’re waiting for an enemy 
to attack, be sure to occasionally flip back 
and forth between front and aft views, or 
you might be surprised by another Zylon. 

11. If your Tracking Computer is destroy¬ 
ed, it has to be turned on again after be¬ 
ing repaired at a starbase. This is the only 
device that needs action when destroyed 
and repaired. 

Zylon Starships. 

1. Know how many Zylon starships are 
in a sector when you enter and count them 
as they’re killed, so you won’t get hit by 
surprise or exit too soon. 

2. If you’re playing at Novice level, you 
don’t have to pursue the enemy in the sec¬ 
tors—they’ll come to you all of the time. 

3. Most of the enemy will come to you 
in the other missions, too, if you give them 
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a chance. If the numbers are getting closer 
to 0 in the range indicator, then sit back 
and wait. 

4. If the enemy were visible on-screen 
at one time in Novice level (and sometimes 
in other missions), but can’t be seen now, 
do not move to find them. Stop all move¬ 
ment with the joystick and engines (press 
0 to stop engines), and let the enemy come 
into view. They’ll become visible again in 
either front or aft view, unless you’ve out¬ 
run them. 

5. Some enemy will seem to be coming 
toward you and ready to attack. At a range 
indicator value of about 150 and 450 me- 
trons, they stop and reverse directions. 
Now you must pursue them at a speed of 
7 or more. 

6. When an enemy is centered in the At¬ 
tack Computer Display, it will be visible in 
the view screen at about 120 metrons, us¬ 
ing the range indicator. 

7. When an enemy first appears on the 
screen, it will show up as a yellow dot (just 
smaller than a white star) that usually 
moves against the background of stars. 
This is most evident when you’re not mov¬ 
ing, but it can be detected at any speed or 
time (including Hyperwarp deceleration, 
even if the screen is flashing red and blue 
—watch carefully). Many players don’t 
concentrate enough to see this. 

8. Before some ships appear on the 
screen, a meteor is seen. This is like a de¬ 
coy. Don't attack it; you may be caught by 
surprise by the Zylons. Instead, just sit 
tight and get ready to shoot at the correct 
target. 

9. Don’t always shoot at the meteors. 
They can indicate that an enemy’s near¬ 
by; when a Zylon starship shoots a pho¬ 
ton, all meteors disappear. 

10. Many of your distant shots can get 
blocked by an enemy shot, and a cloud of 
debris hides the enemy. Don’t let these fool 
you. The enemy will stay hidden as long 
as possible, attacking when (and from 
where) you least expect it. This cloud can 
also be created by blasting one enemy, only 
to have another hide in the dust. If you 
have the Tracking Computer on, there’ll be 
little doubt of killing the enemy—the 
Tracking Computer will automatically 
switch to the opposite view screen if the 
enemy was blasted and a second enemy is 
in the other direction. 

11. With practice, you can predict a Zy¬ 
lon starship’s path before he makes it! 
Many times they’ll move right into your 
shots after you’ve made them. For exam¬ 
ple, if a Zylon starship is hovering for a 
long time in the top half of the screen, his 
next move has to be down. By shooting 
first (before he crosses the middle of the 
screen), most times you’ll destroy him 
through his own navigation. 

12. Some Zylon starships enter high on 
the screen and shoot before crossing the 
horizontal line in the crosshairs of the 


Tracking Computer. The solution? Let 
them cross that point when off of center 
so that their shot will miss you. Then, re¬ 
position them below the horizontal line 
and blast away. Or go after the shot first, 
then the enemy. 

13. Basestars can be destroyed at close 
range, usually with one shot. Getting them 
into position is hazardous at times, as well 
as difficult. A conservative way of destroy¬ 
ing them is to keep firing and hitting them, 
even though they’re too far away. It’s as if 
their shields weaken with repeated attacks, 
until they’re finally destroyed with what 
seems the weakest of hits. 

14. Another time that lock-on is effective 
(see “Photons,” #9 and #10) is on first ap¬ 
proach of a Basestar in Novice through 
Warrior missions. Their first attack is 
straight down the center. That will be their 
last attack, if you wait patiently to time it 
right. In Commander level, they fire soon¬ 
er, making it a little more complicated— 
you may get them or their shot, but sel¬ 
dom both. 

15. Basestars can also be positioned for 
destruction very nicely. Shoot while chas¬ 
ing them at speeds of 6 or 7. It does take 
some practice to steer while moving at 
such speeds. Try working up to those 
speeds and higher by practicing with 4 
and 5. (However, see “Engines,” #1 and 
# 2 .) 

16. Another way of blasting a Basestar 
is by hitting their photon just as they fire 
it. The combination of both photons ex¬ 
ploding so close is too much for their 
shields. However, this is a strategy of coin¬ 
cidence and luck. 

17. Shoot at enemy Basestars at long 
range, even if there’s little chance of kill¬ 
ing them. You will at least keep them “in 
your sights” and also be blocking their 
shots, when made. 

18. Enemy ships have various strategies, 
including the following: 

(a) Pursue you at all cost (see “Zy¬ 
lon Starships,” #3 and #4); 

(b) Avoid you at all cost (see “En¬ 
gines,” #3 and #4); 

(c) Remain stationary and out of 
range (see “Engines,” #3); 

(d) Travel back and forth at a dis¬ 
tance from you (see “Engines,” #3 and 
#4); 

(e) Attack when centered with the 
Attack Computer Display or when 
scanned using the M key (see “Manual 
Target Selector,” #3); 

(f) Sit under your nose at about 15 
metrons distance and wait for i sneak 
attack; 

(g) Always attack in front view; 

(h) Always attack in the aft view; 
and 

(i) Two enemy in a crossfire (see the 
next three entries). 

19. The Tracking Computer can be dis- 
asterous in a crossfire, if you aren’t care¬ 


ful. There are several things that you can 
do to get out of a crossfire. First, turn off 
the Tracking Computer and concentrate on 
one enemy. When they’ve been blasted, 
turn the Tracking Computer back on and 
blast the other one. 

20. Second, press 8 or 9 and get oui of 
there! After a few seconds, press 0. Sit and 
wait for them to catch you in aft view — 
they almost always will—and blast them 
as they show up. 

21. Third, concentrate on one of the pair 
of enemy, but leave the Tracking Computer 
on. Avoid getting hit by the other Zylon 
starship, but don’t attack them. Whenever 
facing the chosen enemy, concentrate on 
its destruction. The problem in a crossfire 
is that so much time is wasted in reposi¬ 
tioning for each player that it’s too late 
when the enemy’s finally in your sights. At 
that time, the other enemy usually fires, 
causing the Tracking Computer to change 
views and mess up your aim. 

22. If a mass of enemy is moving toward 
a distant starbase on the opposite side of 
the Galactic Chart, you can use one of two 
strategies. The first is to attack the slowest 
sectors and gradually destroy all of them. 

23. The second is to attack the fastest 
and forward-most sectors. By always de¬ 
stroying the leaders, you keep the enemy 
nearer to you and avoid a surrounded star- 
base. This method works best with either 
a slow-moving or small group of enemy. 

24. If a starbase is surrounded and 
you’re on the other side of the galaxy, you 
need to get there fast—but efficiently. Us¬ 
ing the small-jump method (see “Hyper¬ 
warp,” #4 and “Zylon Starships,” #25) with 
the shoot-and-fly method (see “Hyper¬ 
warp,” #10 and “Miscellaneous Strategies,” 
#2), you can reduce (and sometimes elim¬ 
inate) the enemy in other sectors as you 
go, and still have time to save your star- 
base. 

25. Use checkerboard-type jumping to 
move across the galaxy (see Figure 4, be¬ 
low). This will work in destroying isolat¬ 
ed sectors of Zylon starships and in hurry¬ 
ing to save a distant starbase (see “Zylon 
Starships,” #24). 

26. Sometimes an enemy on one edge 
of the Galactic Chart moves to the other 
edge. This is a problem if all of the enemy 
are on one side of the Galactic Chart— 
you’ll eventually have to travel the length 
of the galaxy to get them. (Too bad you 
can’t just go over the edge for as little ener¬ 
gy as a single sector.) The solution is to get 
them before they can move. When you 
have a choice, get the enemy on the edge 
of the galaxy rather than the enemy one 
or two sectors in from the edge. 

27. If you’re having a hard time catch¬ 
ing or blasting an enemy, it’s possible to 
get a different enemy (or enemy strategy) 
by leaving the sector and coming back im¬ 
mediately, or later in the game. Some pur¬ 
ists may find this a form of cheating. Use 
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it at your own discretion, and realize that 
you will use extra energy to do it. 

28. Don’t get blasted with less than three 
sectors of Zylon starships. Sure, no star- 
bases can be destroyed, but you can be! 
You’re always two shots or less away from 
destruction—one for your shields, and one 
for you. 



Figure 4. 

Using checkerboard jumping, you can get to the 
other side of the galaxy and clear several sectors, 
too. Do it in this example by traveling left to right 
(toward the starbase in the upper left), through the 
nearby sectors with 4, 3, 2, 4, and 3 Zylon star- 
ships. 

Miscellaneous Strategies 
and Variations. 

1. Various strategies for destroying all 
enemy sectors on the Galactic Chart can be 
used. Generally, start in one area and try 
to eliminate all sectors. Then, gradually 
move through other enemy sectors while 
travelling toward the starbase that will ap¬ 
parently be surrounded. Of course, if the 
base is surrounded, a more defensive strate¬ 
gy is needed to save it (see “Commander 
Mission,” #1 for a specific application.) 

2. Change a 4-enemy sector to a 3- or 2- 
enemy sector, to help them move together 
faster if you don’t have time to clear the sec¬ 
tor. Generally, kill only the one or two Zy¬ 
lon starships that first appear. Don’t wait too 
long for them to get to you. 

3. Learn the keyboard positions by feel, 
rather than by sight. Do this at least for the 
F, G and H keys, as they’re used most often. 

4. Learn to steer with the joystick using 
one hand, so your other hand can work the 
keyboard. This will help in positioning in 
the Galactic Chart, Long-Range Scan, and, 
sometimes, in front and aft views. It 
shouldn’t be necessary to do this for very 


much of a game—just some parts of it. 

5. If the Galactic Chart is poorly arranged 
or your ship is damaged very quickly, you 
can always press START. This may be con¬ 
sidered a form of cheating, but we all tend 
to do better with positive feedback and 
success. 

6. If a series of consecutive games is quite 
hard to win, little change in enemy strate¬ 
gies or destructive resistance will occur 
upon pressing START or SYSTEM RESET. 
You may have to turn off the computer for 
a few seconds and try again that way. 

7. If you get tired of regular play, try some 
variations in game play and goals. Can you 
complete a Novice game without any 
shields? Can you earn more than a Lieu¬ 
tenant Class 1 this way? And how many 
enemy can you destroy in the other levels 
without dying? 

8. Once you’ve made Star Commander 
Class 1, you can try for the most games in 
a row with that rating. Can you triumph 
in fourteen consecutive games without quit¬ 
ting in the middle or getting destroy¬ 
ed? 

9. The game can be made into a 2-play¬ 
er game. One player uses the joystick and 
calls out commands for the other to carry 
out on the keyboard. The commands could 
be “Galactic Chart,” followed soon by “Hy- 
perwarp—front view.” This is good train¬ 
ing for an inexperienced player, who can 
control the keyboard while watching and 
learning. 

10. Reread the instruction manual. You’ll 
probably learn many more details that you 
missed in your first reading. 

Commander Mission. 

1. In Commander level, an effective 
strategy is to destroy all the four-Zylon- 
starship sectors you can before a starbase 
is surrounded. This works well because 
the other enemy will move more easily to 
surround the starbases. But four-Zylon- 
starship sectors move so seldom that they’ll 
almost always be in the same general area 
where they started. By eliminating them 
early, you’ll make many parts of the gal¬ 
axy free and clear, and the enemy will be 
grouped for easy travel from sector to sec¬ 
tor on little energy. 

2. It’s possible to earn Star Commander 
Class 1 and have a starbase destroyed by 


you or the enemy. Don’t give up after one 
is lost, but don’t plan on the top rank after 
the loss of two! 

3. It’s also possible to complete a game 
without docking. Your energy level can get 
very low, so be careful. You’re almost as¬ 
sured a top ranking this way. 

4. It is possible to be destroyed and earn 
a Star Commander Class 1 rating. Very few 
enemy are usually left alive, and your 
shooting during the game was otherwise 
superb. 

5. The last sector is usually the most dif¬ 
ficult to clear. It may take several attempts 
at Commander level just to complete. 
Sometimes there will only be one ship left 
to destroy before your own demise. 

Conclusion. 

If you seem to be in a rut in an advanced 
mission and can’t get any high scores, try 
an easier mission! By practicing in the low¬ 
er games, you can improve some of your 
skills. On returning to the harder levels, 
you’ll probably do better. And don’t think 
that you’ll still be as good next month as 
you are now. You’re going to have to warm 
up or keep practicing to maintain your 
skills and ratings. 

Don’t be afraid to experiment. After all, 
Star Raiders is only a game. And, unless 
you have a winning streak going, it’s okay 
to try some of these ideas and incorporate 
them into your overall game play. Or. per¬ 
haps you want to see if you can improve 
your aim in aft view, or make some im¬ 
provements in docking by going back and 
forth between starbases. If you get blown 
up or run out of energy, press START and 
keep flying! 


ATARI 8-BIT EXTRA 


ANALOG COMPUTING 87 




Attention 

Programmers! 


ANALOG Computing is interested in programs, articles, and software review sub¬ 
missions dealing with the Atari home computers. If you feel that you can write as well 
as you can program, then submit those articles and reviews that have been floating 
around in your head, awaiting publication. This is your opportunity to share your knowl¬ 
edge with the growing family of Atari computer owners. 

All submissions for publication, both program listings and text, should be provided 
in printed and magnetic form. Typed or printed copy of text is mandatory and should 
be in upper and lower case with double spacing. By submitting articles to ANALOG 
Computing, authors acknowledge that such materials, upon acceptance for publica¬ 
tion, become the exclusive property of ANALOG Computing. If not accepted for pub¬ 
lication, the articles and/or programs will remain the property of the author. If submissions 
are to be returned, please supply a self-addressed, stamped envelope. All submissions 
of any kind must be accompanied by the author’s full address and telephone number. 

For those of you who are sincerely interested in the rules and regulations for publica¬ 
tion, we’ve taken this opportunity to print our guidelines for authors. See page 128 of 
this book for everything you’ll need to know. 


Send your programs and articles to: 
Editor, ANALOG Computing 

RO. Box 23, Worcester, MA 01603. 












by David Plotkin 

Pastels is fun to look at. It’s relaxing, putting fifteen pas¬ 
tel colors on-screen at once, in ever-changing patterns. 

As detailed below, several special PROCedures were 
used to speed up the graphics. Action! has become the 
language of choice for many serious programmers, being 
considerably easier than machine language, and outstrip¬ 
ping BASIC’s performance. 

Pastels is written in graphics 11, the 15-color mode avail¬ 
able only with the GTIA chip. To understand how the spe¬ 
cial routines work to speed up the display, you must know 
something about how colors are displayed in graphics 11. 
Each byte on the screen is broken up into two halves (or 
nibbles), with one half containing the lower 4 bits (0 
through 3), and the other half containing the upper 4 bits 
(4 through 7). 

The 4 bits in each nibble can make up a total of sixteen 
different on/off combinations, thus creating the sixteen 
colors. Further, since each byte is broken into halves, the 
first byte on each line corresponds to the screen’s x-coor- 
dinates 0 and 1, with the second byte holding 2 and 3, 
and so forth. 

Byte array colors contains sixteen numbers, which cor¬ 
respond to the sixteen bit-patterns available in each nib¬ 
ble, from all bits off (0) to all bits on (255). Seventeen, for 
example, is the smallest bit in each nibble (0 and 4) on; 
all others off. 


PROC Grlllnit reads the starting address of each screen 
line into an array of cardinal numbers (CARD), for later 
reference. 

PROC Plotll actually plots points on the screen much 
faster than does the system PLOT. This is because the first 
is a specialized routine, which will essentially only work 
in graphics 11. Three byte arrays are declared, and they’re 
all important. 

The first, tli ne, will be equated to the y-element of CARD 
array Line, thus pointing tli ne to the on-screen line we 
wish to change. 

We have mask and mask2 as bitmasks. The first element 
of mask corresponds to all the lower nibble bits being on, 
and the higher nibble bits off. The second element is just 
the reverse (all high nibble bits on, all lower nibble bits 
off). 

The bitmask mask2 just reverses the order of mask’s ele¬ 
ments. In the equation at the end of this PROCedure, the 
tline (x RSH 1) term determines which byte on the chosen 
line corresponds to the chosen x-coordinate. Remember: 
each byte contains two x-coordinates, so it’s necessary to 
divide x by 2, to see which byte to modify. 

The RSH operation divides by 2 much faster than does 
the built-in divide routine. The first term—(= =&mask 
(x&T))— takes the byte in question and turns off all bits 
on the half of the byte to be modified, by ANDing the byte 
against the mask element. 

The element of array colors containing the color you 
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wish is then ANDed against the m ask2 element, to turn 
off all bits in the color byte in the half of the byte which 
is not being modified. 

Finally, these 2 bytes (each with an empty half) are ORed 
together, to produce the modifed byte. 

The balance of the PROCedures don’t do anything par¬ 
ticularly remarkable, so I won’t expand on them. But look 
over this short demonstration of Action!’s power for your¬ 
self. 

David Plot kin, with his Master’s degree in Chemical En¬ 
gineering, is a Project Engineer for Chevron U. S.A. He pur¬ 
chased his Atari in 1980 and is interested in programming 
and game design, as well as word processing. 


OD 

FOR i=l TO 79 
DO Z —Z + l 

IF z>15 THEN Z— 1 FI 
COLORrz 

PLOT Ci,y) DRAWTO (79-i f 190-y) 
yzy + l 

IF y>190 THEN y=0 FI 
OD 
OD 

RETURN 


Listing 1. 

Action! listing. 

; CHECKSUM DATA 

;C4D D7 45 FI 31 EC 3 

MODULE; PASTELS by David Plotkin 

; written in ACTION! froM OSS 
BYTE ARRAY Colors=[0 17 34 51 68 85 
102 119 136 153 170 187 
204 221 238 2553 
CARD ARRAY LineC192J 

PROC Grlllnit () 
initialize Graphics 11 
CARD loop,scrn=88 
GRAPHICS till 
FOR Ioop=0 to 191 
DO 

Line floop)=scrn+40*loop 
OD 

RETURN 

PROC PlOtlllBYTE x,y,clr) 

;Plot a point using color Masks and 
;arrays 

BYTE ARRAY tline , Mask= C15 2403 , 
Mask2=C240 153 
tl ine^Line ty) 

tl ine tx RSH l) ==&Mask fx&l) 7. 

CColors Cclr) &Mask2 tx&l)) 

RETURN 


PROC Drawn tBYTE xl , yi, x2 , c 1 r) 
;Draw a line in Graphics 11 
BYTE ll,XXl,XX2 
IF xi>x2 then xx2=xl xxl=x2 
ELSE xxl=xl xx2=x2 
FI 

FOR ll=XXi to XX2 
DO 

Plotll(ll,yl,clr) 

OD 

RETURN 

PROC Maint) 

;The Main driver 

BYTE z-103/i,y-C03,atrct=77 

Grlllnit t) 

DO atrct=0 

FOR i=1 TO 79 
DO z=z+l 

IF Z> 15 THEN Z— 1 FI 
DrawllCi,y,79-I,z) 
DrawllCi,190-y,79-i,z) 
y=y + l 

IF y>190 THEN y=0 FI 
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by David Castell 


CGM—Castell’s Graphic Manager —is similar to the 
ST’s GEM, in that it acts as an interface between the 
programmer and the operating system (OS), enabling the 
programmer to access such features as windows, icons and 
trackers. One of the many differences is that GEM works 
with a bit-mapped screen (similar to graphics 8), but CGM 
is designed to work with the standard graphics 0 screen. 

Typing it in. 

Listing 1 is the BASIC data used to create your copy of 
CGM. See the M/L Editor on page 4 for typing instruc¬ 
tions. You should create the CGM file under the name AU- 
TORUN.SYS. 

To load CGM, insert the disk containing the AUTO¬ 
RUN.SYS file into drive 1. Turn your computer off and then 
back on again. After CGM loads in, a message indicating 
it’s in memory appears at the top of the screen. 

Listings 2,3,4 and 5 are examples of BASIC programs 
using the features of CGM. Listing 2 demonstrates the use 
of windows and overlaying. 

Listing 3 is an icon editor. Move the hand tracker within 
the large rectangle and press the joystick button to turn 
a blank square white, or vice versa. Two icons, one nor¬ 
mal and one reversed, are displayed to the right of the edit¬ 
ing square. Press the START key at any time to display data 
that can be used to create an icon or tracker. When you 
return to the editor, the editing square will be blank again. 


Listing 4 is actually a subroutine that starts at Line 
30000. It can be incorporated into any of your own pro¬ 
grams that use a graphic 0 screen. This subroutine is ac¬ 
tually a mini-DOS that will let you: get a directory, delete 
files, lock/unlock files, rename files and format disks. This 
program shows how windows and trackers can be integrat¬ 
ed to make menu selection a lot easier. 

Listing 5 is an advanced memo pad. The features of 
CGM make using it enjoyable and easy. The icons have 
been placed in windows, so they can be moved around 
or removed without disrupting the contents of the screen 
(memo pad). All these icons were created with the icon 
editor (Listing 2). The first is a clock. If you select this 
option, a menu will pop up, giving you the option of set¬ 
ting the clock or displaying it. If you display it, all activi¬ 
ty stops so you can see the time. When you’re finished 
with the clock, press the joystick button to go on. 

The second icon is a calculator. If you select this, a cal¬ 
culator pops up. It’s very simple and performs calculations 
in the order they’re entered, not the order they “should” 
be in (i.e., multiplication before addition). Just move the 
hand over the keys and press the joystick button to hit a 
key. 

Most of the keys are self-explanatory. The X is the OFF 
key. When you’re finished with the calculator, press OFF 
to remove it. The R is the square root key; the C clears 
the number currently displayed on the calculator’s screen; 
and the A is All Clear. This clears the display, operation 
and memory. The % key is designed to work a special way. 
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If you enter 5 + 7%, the answer will be 5.35. It’s useful for 
figuring sales tax. If you enter 7%, the answer will be 0.07. 

The third icon is a disk, for a disk loader routine. When 
you select this option, a large window is displayed, show¬ 
ing the names of all files on the disk. Move the hand over 
the one you want to load and press the button. It will be 
loaded and run automatically. This routine will only load 
programs that have been saved to disk. 

In the fourth window is the word MEMO (I honestly 
couldn’t think of an icon to represent this function). If you 
select this option, a menu will pop up. You may choose 
to edit, load, save or print the memo. The editing func¬ 
tion removes all icons, leaving you the whole screen to 
edit with normal editing keys. 

To exit the editing function, simply press the ESC key. 
The memo print function is not very advanced. It doesn’t 
support any of Atari’s special graphics characters (which 
is just as well, because most of them are redefined as icons 
and trackers). 

At any time during the operation of the last two pro¬ 
grams, you may point the tracker to the top corner of the 
window you’re currently selecting from and press the but¬ 
ton. The border of that window will turn to a color. Now, 
move your tracker to any spot on-screen and press the but¬ 
ton again. The window will instantly be moved to this new 
position, and the border will appear white again. 

The MAC/65 source code of CGM is available on the disk 
version of this book. 

Windows. 

A window is an area of the screen with a border around 
it, that you can print and input information to and from. 
CGM supports up to five independent windows, which can 
overlap to maximize space. When you print to a window, 
it automatically overlaps the other windows. 

Creating a window. 

When you first create a window, it will appear as a thick 
white border around a blank area. The contents of the 
screen underneath the window are stored in memory and 
restored when the window is removed. To create a win¬ 
dow, type in A = USR(39936,N,X,Y,C,R) —where: N is the 
number of the window (from 1 to 5); X is the column of 
the top corner of the window; Y is the row of the top cor¬ 
ner of the window; C is the number of columns in the win¬ 
dow; and R is the number of rows in the window. 

Removing a window. 

Always be sure to remove a window before you create 
another with the same number. To remove a window, type 
A = USR(39939,N] —where; N is the number of the win¬ 
dow you wish to remove. 

Moving a window. 

At some point, you may want to move a window and 
its contents to another position on-screen. Instead of re¬ 
moving the window, creating it at another position and 
reprinting the contents, you can use this special window- 
moving routine. A = USR(39942,N,X,Y) — where: N is the 
number of the window you wish to move; and X,Y is the 
new position of the top corner of the window. 

Overlapping. 

Creating, removing, or moving a window does not af¬ 


fect the position or contents of other windows, but does 
affect the order in which they overlap. After executing one 
of these three commands, the windows will now overlap 
in the order of their creation, with the first window on 
the bottom of the stack and the last on the top. The ex¬ 
ception is the move function, in which the window moved 
always appears on top. 

Using a window. 

After creating the window, you’re faced with using it. 
It’s actually very easy: after creating a window, you have 
a new device Wn:, where n is the number of the window 
(1 to 5). As with all other devices, you must use the OPEN 
command to read or write. OPEN ttaexp,aexp2,0,"Wn :"— 
where: aexp is IOCB number (1-4) and aexp2 is a code 
number to determine input or output operation (4=input, 
8=output, and 12=input and output). 

The OPEN command sets the window input/output po¬ 
sition to the top corner. After input or output you should 
use the CLOSE command (CLOSE ttaexp). 

As normal, your input/output commands are: 

PRINT ttaexp — e.g., PRINT ttl;"OPTION 1". This 
prints "OPTION 1" at the current window I/O po¬ 
sition. 

INPUT ttaexp — e.g., INPUT ttl;A$. This inputs all 
characters from the current window I/O position to 
the end of the row. 

PUT ttaexp — e.g., PUT ttl,65. This sends charac¬ 
ter 65 (A) to the current window I/O position. 

GET ttaexp — e.g., GET ttl,A. This gets the num¬ 
ber of the character at the current window I/O posi¬ 
tion and stores it in the variable A. 

Note that PRINT causes the window to be instantly 
redrawn to show the change in its contents, but this is not 
the case with the PUT command. With PUT, the window 
is redrawn when the RETURN character (155) is sent to 
the window. 

If you print more rows than are available in a window, 
the contents will scroll up one line. If you INPUT past 
the end of the window, you will get an error 136 (End of 
File). Each line sent to the window should end with a RE¬ 
TURN, because it won’t wrap around to the next line with¬ 
out one. For example, if you send a 15-character line to 
a 5-character wide window, only the first 5 characters are 
displayed; the rest are ignored. Therefore, if you INPUT 
that row, only the 5 characters actually displayed will be 
entered. 

If you want to have the contents of a window in a string, 
so you can send it all with one print statement, you’d run 
into the problem. There’s no way you can put the RETURN 
character in the middle of the string, without going into 
complex string manipulation. Here, you can use CTRL- 
PERIOD instead of RETURN in the string. 

WINS^’ROW 1>R0W 24R0W 3" 

PRINT ttljWINS 

CGM keeps track of what row and column within the 
window the next character will be read from or written 
to. I’ve referred to this as the “current window I/O posi¬ 
tion.” Since INPUT reads from the current character to the 
end of a row, you’ll need a way to position this pointer 
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to the spot you want to read from (or, in the case of PRINT, 
write to). You’re able to do this, and more, through the 
XIO command. It can be used like the Position X,Y state¬ 
ment in BASIC. The difference is that, in the case of the 
XIO command, positioning to point 0,0 would be the top 
corner of the window, not the screen. 

There are actually three different XIO functions. All of 
them change the window I/O pointer, but two perform ex¬ 
tra functions. 

XIO C,#D,X,Y,"Wn. "—-where: D is the channel number 
(1-4). 

(1) Position for next I/O to window—where: C < 
100 and C > 12; X=column of window; Y=row of 
window; and N=number of window (1-5). 

As an example, XIO 50,#1,0,0,"W. " indicates that the 
next string of characters sent to window 1 (no n means 
1) will start at the top corner of the window. 

(2) Position for next I/O with window and redisplay 
the contents of window. Normally, the only way to 
cause an overlapped window to overlap the other win¬ 
dows is to send data to it. Unfortunately, this may 
cause unwanted scrolling of text in the window. How¬ 
ever, this XIO command is similar to the first, except 
this one will redisplay the contents of window n, caus¬ 
ing it to overlap the others. 

Where: C > 100 and C < 200; X=column of win¬ 
dow; Y=row of window; and N = number of window 
(1-5). So, if window 2 is overlapped by other windows, 
XIO W0,H1,0,1,"W2:" will cause window 2 to overlap 
other windows. The next I/O with window 2 will start 
at the second row, first character. 

(3) Redisplay contents of a window, position for next 
I/O with window (see 2, above) and reverse (black 
print on white square) all of the characters in a desired 
row—where: C > 200 and C < 256; X=column of 
window (reversing always starts from the beginning 
of a row, regardless of the value of X); Y=row of win¬ 
dow; and N=number of window (1-5). 

XIO 200,#1,1,1,"W2:" — the characters in row 2 of 
window 2 are reversed. The next I/O with window 
2 will start at the second row, second character. 

Note that the characters are reversed only on the screen 
display. Therefore, when the window is redrawn (by 
PRINT, Create Window, Remove Window, Move Window, 
XIO 100-199, XIO 200-255), the row is returned to nor¬ 
mal. Also, if you INPUT a row that’s reversed on-screen, 
the string input is not reversed. 

Also, PUT, GET, INPUT, OPEN, CLOSE, XIO 12-99 do 
not erase the reversed row. 

Take the following window as an example: 


ABC 

123 

DEF 

456 

GHI 

789 


(1) OPEN HI,12,0,"W:“ — Sets up for input/output 
to window 1. The window I/O position is set to top 
corner. 

(2) XIO 250,H2,4,1,"W:" — Reverses the second row. 
sets window I/O position to column 5, row 2. 


(3) INPUT H1,A$ — Inputs from window I/O posi¬ 
tion to end of row. A$ now contains 456. 

(4) XIO 150,#2,0,2,“W:” — Redraws the window, 
causing the second row (which was highlighted in the 
second step) to be returned to normal. The window 
I/O position is set to the column 1, row 3. 

(5) PRINT #1;"XYZ" — The “XYZ” prints overtop 
of “GHI”. 

(6) PRINT HI — The top row ABC 123 scrolls off 
the top of the window, and the last row of the win¬ 
dow is blank. 

(7) CLOSE #1 — You should always close a channel 
when you’re done with it. 

Note: XIO commands cannot use a channel already open 
for I/O. That’s why the XIO commands in steps 2 and 4 
use channel #2. 

Icons. 

To CGM, an icon is just a picture two characters wide 
by two characters high. A call to CGM will put the data 
of the four characters of the icon into the RAM character 
set used by CGM, starting at the character you select 
(ATASCII character value). You should probably choose to 
put your picture where the Atari special graphics charac¬ 
ters normally are (characters 0-31), leaving the letters and 
numbers alone. However, the tracker uses characters 0-8, 
so you should also avoid these if you’re using the tracker 
routines. 

For example, if you chose character 9, your icon will be 
made up of characters 9-12. Characters 9 and 10 will be 
the top half of the icon, and characters 11 and 12 will be 
the bottom half. Therefore, to print your icon on the 
screen, print characters 9 and 10 (CTRL-I and J) on one 
row, and characters 11 and 12 (CTRL-K and L) on the line 
below. 

The data for each character of the icon consists of eight 
numbers, the binary representations of each row of the 
character. The data is set up the same way as the icon is 
drawn—the top two characters, followed by the bottom two 
characters. If you’re familiar with creating character sets, 
this set-up isn’t new. But, even if you don’t understand how 
to set up character data for the character set, you can use 
the icon editor program (Listing 3) to automatically cre¬ 
ate data statements (or strings) that can be used with calls 
requiring icon or tracker data. 

To put an icon into the character set, enter A=USR 
(39951, N.ADDR), where ADDR is the address of the icon 
data. If your icon data was in a string (such as ICONS), 
ADDR would be ADR(ICON$). 

N is the number (ATASCII character value) of the first 
of the four characters whose character data will be replaced 
by the icon data. 

Tracker. 

A tracker is actually a movable icon, used mostly as a 
pointer. You’re probably most familiar with the arrow 
tracker moved by a mouse on both the ST and the Macin¬ 
tosh, or maybe the hand moving around in the “Construc¬ 
tion Set” series from Electronic Arts. 

The default tracker built into CGM is a hand, but you 
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can change this if you want. The pointer that points to the 
location of the default tracker can be found at 39962 and 
39963. For example, add the following line to the Memo 
Pad program (Listing 5): 

85 TRACKHI=INTCADRCCL0CK$)/256):TRACKL 

0=ADRCCL0CK$)-TRACKHI*256:P0KE 39962, T 

RACKLO:POKE 39963,TRACKHI 

This causes the clock to be used as the pointer, instead of 
the hand. 

Built-in tracker routine. 

The built-in tracker routine works independently of the 
BASIC program. This routine reads joystick 1 and moves 
the tracker in the corresponding direction on-screen. To 
start the tracker, enter A = U SR(39954J. 

After you start the tracker routine, your program really 
doesn’t have to do anything but wait. If you wish to check 
where the tracker is at any given time, try: X=PEEK (4), 
then Y=PEEK (5). 

If you wish to disable joystick control of the tracker, lo¬ 
cation 39960 is the tracker mask. POKE 39960,1 disables 
joystick control, and POKE 39960,0 enables control. 

If you’re finished with the tracker routine and wish to 
stop it: A = USR(39957], This will stop the routine and re¬ 
move the tracker. If you wish to put it back, you can just 
do another A=USR(39954), and it will appear at the same 
spot it was removed from. 

The following program is a sample implementation of the 
tracker routine: 

10 GRAPHICS O:POKE 752,1:? CHR$(125J 

20 A=U5RC39954J 

30 IF STRIGC0) THEN 30 

40 A = USR C39957) :X=PEEK(4J :Y=PEEK 15) 

50 COLOR 160:PLOT X,Y 
60 GOTO 20 

This routine will allow you to use the joystick to move 
the tracker around. Line 30 waits until the joystick button 
is pressed. When it is, the tracker’s removed and a reverse 
square is placed at the spot where the tracker was point¬ 
ing. You must remove the tracker before altering the screen 
under it. Otherwise, when the tracker moves again, the 
screen beneath the tracker will return to the way it was 
before the tracker was moved over it. 

Your own tracker. 

As mentioned above, if you wish to use this same track¬ 
er routine with your own tracker, just change the pointer 
at location 39962 and 39963 to point to your tracker. 

However, if you wish to create your own tracker 
routine—or use the tracker for something else (such as a 
controlled cursor, like the RENAME function of Listing 4, 
or the SET CLOCK function of Listing 5)—here are a few 
calls you can use. 

To position a tracker: A=USR(39945,addr,x,y), where 
add r is the address of the tracker data (set up in the same 
manner as icon data); x is the horizontal position of the 
tracker (0 to 318); and y is tire vertical position of the tracker 
(0 to 190). 

Note that CGM has built-in roll-around routines. If the 
tracker goes off the screen, it appears on the other side. 

Also, the tracker automatically removes itself from its 
old position before locating itself to a new position. There 


fore, this is the only call you need to make inside a loop 
that moves the tracker. 

Avoid altering the contents of the screen near the tracker. 
If characters are printed over the tracker, these will dis¬ 
appear when the tracker is moved. 

If you wish to use the built-in hand tracker, just don’t 
include add r within the USR call. For example: A = USR 
(39942,x,y) will position the hand at coordinates x,y. 

You can also use this Move Tracker routine to position 
the tracker being run by the built-in tracker routine called 
by A = USR(39954) within your program. For example, in 
the mini-DOS example (Listing 4), when entering the new 
name of a file to rename, the tracker mask is set (POKE 
39960,1) and A = USR(39942,x,y) is being used to control 
the movement of the hand, so it can be used as a cursor. 
When the name is entered, the tracker mask is cleared 
(POKE 39960,0), and the joystick once again takes con¬ 
trol of the tracker. 

If you don’t enter any x- or y-coordinates with the 
USR(39942), the tracker will be printed at the last x,y- 
coordinates (for example, A = USR(39942) will display the 
icon at the last x,y-coordinates). So, if you need to alter 
the text below the tracker in your own tracker routine, just 
remove the tracker, alter the text and use A=USR(39942) 
to return the tracker to where it was before removal. 

Removing a tracker. 

When you’re finished with the tracker, you’ll probably 
want to remove it from the screen. To do so, enter 
A = USR(39948J. 

This is not to be confused with A = USR(39957) men¬ 
tioned earlier, which removes the tracker and stops the 
built-in joystick tracker routine. 

The only integration between the windows and tracker 
consists of the tracker “getting out of the way” while tire 
window is updated. However, as mentioned earlier, if you 
wish to alter the text beneath the tracker, you must first 
remove the tracker, alter the text and place the tracker back 
on-screen. 

Reading tracker position. 

Anytime you use the above tracker routines, locations 
4 and 5 will contain the tracker’s position on the screen. 
Location 4 is the column reading (0-39), and location 5 
is the row reading (0-23). 

Whatever shape your tracker is, if it’s to be used as a 
pointer, its point should be at the top left of the icon, be¬ 
cause the built-in roll around and the values in locations 
4 and 5 assume that this is the case. 

Here’s the same application of the tracker routine shown 
earlier. This time, it doesn’t use the built-in tracker rou¬ 
tine, but a custom tracker routine for the Atari Touch 
Tablet. 

10 GRAPHICS 10:POKE 752,1:? CHR$C125) 

20 IF PADDLE (03 =228 AND PADDLEC13=228 
THEN 20 

30 TX=PADDLEC0)*t320/228J:TY=192-PADDL 

E(1J*C192/228J 

40 A=U5R(39945,TX,TYJ 

50 IF STICK CO)=15 THEN 20 

60 A = U5R (39948) :X=PEEK(4) :Y=PEEK(5) 

70 COLOR 128:PLOT X,Y 
80 GOTO 20 
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To use it with the Koala Pad, just delete the 192- in 
Line 30. 

Special notes. 

Location 39961 contains the character (internal character 
set) with which window borders are drawn. The default 
is 128, a solid white square. You can change this by POKE- 
ing 39961 with any character. 

For this very reason, character 123 of the RAM charac¬ 
ter set used by CGM is changed from a “spade” to a solid, 
colored square, using artifacting. This color will proba¬ 
bly appear green or blue, but the color varies between sys¬ 
tems. Whichever it is, the reverse of this character (251) 
will appear as the other color (blue or green). 

Since this character is only in the RAM set, you must 
make sure this is the character set being used. The first 
tracker or icon routine called automatically selects the 
RAM set. However, if you want colored borders before you 
make one of these calls (or if your program doesn’t use 
trackers), you must perform a POKE 756,152 to use the 
RAM character set. 

Another special character is character 255. If you POKE 
location 39961 with 255, no border will be placed around 
the window, causing the contents of the screen around the 
window (where the border normally is) to be left “as is.” 
Changing location 39961 means that all borders drawn 
from that point on will appear with the new character. The 
Window Create, Remove and Move routines will cause the 
borders of all windows to be redrawn with the new bor¬ 
der character. 

If none of these routines are used, only the windows 
you PRINT to—or use an XIO (above 100) command on— 
will be redrawn with the new character. In the mini-DOS 
and Memo Pad programs, when you press the button with 
the tracker pointing to the top corner of the window, lo¬ 
cation 39961 is POKEd with a 123 and an XIO 150 is per¬ 
formed . 

This only changes the color of the border of the one win¬ 
dow. If the subsequent move window routine was execut¬ 
ed before location 39961 was changed back to 128, all the 
windows on the screen would be redrawn with a colored 
border, instead of the usual white one. 

It should be noted that this same technique cannot be 
used with the no border (character 255) option. For the 
no border option to be invoked, it must be placed before 
a Window Create, Remove or Move command. These three 
commands cause the contents of the screen behind the 
borders to be restored and then the new borders are 
redrawn—or in this case, not drawn. 

Whenever a window is created, the contents of the 
screen behind the window and the contents of the win¬ 
dow are stored just below the top of memory pointer (lo¬ 
cations 741 and 742). When CGM initializes (after it loads, 
or any time SYSTEM RESET is pressed) these pointers are 
set to the first free location below CGM. 

However, whenever a graphics command or a channel 
is opened to device E: or S:, this pointer is set to just be¬ 
low the display list, which is also the end of CGM. This 
means that—if you use a graphics command or open to 
E: or S:, then create a window—the contents of the win¬ 


dow and the screen behind the window are stored right 
over CGM, causing the computer to lock up. 

You’ll probably notice that the two sample tracker rou¬ 
tines shown earlier use a graphics command. Also, the 
icon editor opens a channel to S:, so the graphic charac¬ 
ters display properly. 

These programs get away with this, because they don’t 
use any windows. However, if you ran any of these pro¬ 
grams and then ran a program that did use windows, the 
computer would lock up. To get around this problem, press 
the SYSTEM RESET key when you run a program with 
windows. If you wish to use the graphics statement in a 
program with windows, just reset the top of memory point¬ 
er after the graphics statement. For example: 

10 MEMT0PL0=PEEKC741J:MEMTOPHIrPEEK£74 

2) 

20 GRAPHICS 0 Cor OPEN ttl, 12,0, "E ! or 
OPEN «1,12,0, ,, S: ,, J 

30 POKE 741,MEMT0PL0:POKE 742,MEMT0PHI 

This will solve any problems you might encounter. 

Since there’s no real integration between windows and 
trackers, the task of integrating these two features in a pro¬ 
gram is yours. However, I’ve included several all-purpose 
subroutines that integrate windows and trackers, to per¬ 
form specific tasks. 

The first can be found in the mini-DOS program (List¬ 
ing 4) at Line 31000, and in the Memo Pad program (List¬ 
ing 5) at Line 25000. This subroutine is designed for menu 
selection. Before entering the subroutine, you must cre¬ 
ate a window, print the different options to the window, 
start the tracker routine and set the following variables: 
N = number of the window; X,Y=top corner of the win¬ 
dow; DX = Delta X (number of columns); and DY=Delta 

Y (number of rows). 

Lines 25030-25050 are the heart of this subroutine. This 
loop waits for the user to press the joystick button and 
reverses the window row the tracker is on, or erases this 
highlight if the tracker is outside the window’s border. 

Line 25070 checks to see if the button was pressed at 
the top corner of the window. If it was, Lines 25080-25140, 
(the Move Window routine) are executed. 

When the subroutine is finished, the variables X and 

Y will hold the top corner of the window (if the window 
was moved, your program might need to know), and the 
variable CHOICE will contain the number of the option 
selected. This result can be used in statements like: ON 

CHOICE GOTO OPTION1, 0PT10N2, OPTION3 _or ON 

CHOICE GOSUB OPTIONl, OPTION2, OPTION3 _ 

Another subroutine is the Input String subroutine start¬ 
ing at 30000 in the Memo Pad program. This routine uses 
the tracker as a cursor to enter a string inside a window. 
The routine is used to set the clock and enter the filename 
in the save memo option. 

The routine needs IOCB #2 to be opened for input/out¬ 
put (OPEN tt2,12,0,"Wn:") to the proper window. It also 
requires that the variables N, X and Y to be set in the same 
manner they were in the above subroutine, as well as the 
variable LEFT, which should contain the column of the 
window the entry should start in. 

For example, if the prompt in the window was File- 
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name?, entry should start in column 9, which is the first 
column to the right of the question mark; therefore, LEFT 
should equal 9. 

This subroutine returns the string that was entered in 
the variable NAME$, which should be dimensioned at the 
start of your program. If you were to enter a number, you 
would use the VAL command (NUM = VAL(NAME$j), to 
get the number into a numeric variable. 

Another subroutine worth mentioning starts at Line 
10000 of the Memo Pad program. This routine creates a 
window the height of the screen, and reads all the names 
of files on the disk in drive 1, printing them to the win¬ 
dow. It then uses the subroutine at Line 25000 to allow 
the user to select one of the filenames. 

It proceeds to get the name into the proper format for 
disk I/O (D:FILENAME.EXT) and returns the final name 
in FNAME$. This subroutine requires that the strings 
FNAME$ and EXT$ be dimensioned at the beginning of 
the program. 

All these subroutines require certain entry point varia¬ 
bles (CL, OP, TRACKER, etc.) See the first couple lines 
of the Memo Pad program for these variables. 

Your first step in learning how to use CGM should be 
to run the four sample programs, so you can see exactly 
what CGM can do. Then look at the listings, to see exact¬ 
ly how we’re using CGM to do it. 

When you start programming with CGM, use as many 
routines from these four samples as possible, as well as 
creating your own subroutines to incorporate into other 
programs. You’ll never run out of uses for CGM in your 
programs, because it has the ability to make any program 
user-friendly. H 

David CasteII is currently attending the University of 
Waterloo in Ontario. Although this is David’s first program 
published in a magazine, he’s also written “P. S. Interface" 
and “The First XLent Word Processor” for the 8-bits and 
“P.M. Interface" for the ST. All three are available from 
XLent Software. 


The two-letter checksum code preceding the line 
numbers in Listings 2 through 5 is not a part of the 
BASIC program. For more information, see BASIC 
Editor II, in ANALOG Computing's issue 47. 


Listing 1. 

1000 DATA 255,255,133,142,128,143,104, 
216,160,0,104,104,153,109,144,200,9393 
1010 DATA 192,5,144,246,32,235,150,32, 
73,143,76,251,150,104,216,104,9749 
1020 DATA 104,141,109,144,32,235,150,3 
2,10,146,76,251,150,216,104,32,7629 


1030 DATA 235,150,169,0,141,233,145,32 
,162,144,104,104,141,109,144,141,8511 
1040 DATA 210,142,32,137,145,104,104,1 
53,47,145,104,104,153,48,145,32,5092 
1050 DATA 196,144,169,0,141,109,144,32 
,137,145,32,212,143,76,251,150,9331 
I960 DATA 36,33,54,41,36,0,35,33,51,52 
,37,44,44,7,51,0,5526 

1070 DATA 167,178,161,176,168,169,163, 
128,173,161,174,161,167,165,178,165,36 
03 

1080 DATA 12,141,23,143,165,13,141,24, 

143,160,4,185,219,142,145,88,7666 

1090 DATA 200,192,35,144,246,176,3,32, 

255,255,169,22,133,12,169,143,8606 

1100 DATA 133,13,32,165,150,169,0,160, 

4,153,84,148,136,16,250,160,7627 

1110 DATA 44,153,55,145,136,16,250,32, 

104,148,169,132,141,229,2,169,8619 

1120 DATA 142,141,230,2,169,0,141,118, 

144,96,173,118,144,201,45,176,8770 

1130 DATA 248,32,58,144,32,8,145,32,71 

,144,173,229,2,56,229,208,7974 

1140 DATA 141,114,144,173,230,2,229,20 

9,141,115,144,32,8,145,173,114,8018 

1150 DATA 144,56,229,208,141,116,144,1 

73,115,144,229,209,141,117,144,173,261 

9 

1160 DATA 116,144,129,143,124,144,56,2 

33,1,141,229,2,173,117,144,233,0 

1170 DATA 0,141,230,2,32,34,145,173,19 

8,146,240,3,76,226,144,173,9911 

1180 DATA 109,144,141,233,145,32,100,1 

45,32,162,144,76,196,144,32,58,6685 

1190 DATA 144,32,25,144,173,114,144,13 

3,210,173,115,144,133,211,174,113,1384 

1200 DATA 144,160,0,177,208,145,210,20 

0,204,112,144,144,246,32,84,144,830 

1210 DATA 32,96,144,202,208,235,76,71, 

144,32,58,144,32,25,144,160,5692 

1220 DATA 0,173,25,156,201,255,240,48, 

145,208,200,204,112,144,144,248,4497 

1230 DATA 174,113,144,202,202,32,84,14 

4,160,0,173,25,156,145,208,172,9385 

1240 DATA 112,144,136,145,208,202,208, 

237,32,84,144,160,0,173,25,156,8157 

1250 DATA 145,208,200,204,112,144,144, 

245,32,71,144,76,192,145,174,111,25 

1260 DATA 144,165,88,24,109,110,144,13 

3,208,165,89,105,0,133,209,202,9361 

1270 DATA 48,25,165,208,24,105,40,133, 

208,144,244,230,209,208,240,238,6582 

1280 DATA 112,144,238,112,144,238,113, 

144,238,113,144,96,206,112,144,206,264 

3 

1290 DATA 112,144,206,113,144,206,113, 
144,96,165,208,24,105,40,133,208,8997 
1300 DATA 144,2,230,209,96,165,218,24, 
109,112,144,133,210,144,245,230,3488 
1310 DATA 211,96,0,0,0,0,0,0,0,0,0,0,3 
2,58,144,32,5613 

1320 DATA 25,144,125,144,120,145,173,1 
14,144,133,210,173,115,144,133,211,207 
1 

1330 DATA 174,113,144,160,0,177,210,14 
5,208,200,204,112,144,144,246,32,2044 
1340 DATA 84,144,32,96,144,202,208,235 
,76,71,144,160,0,185,55,145,8093 


98 ANALOG COMPUTING 


ATARI 8-BIT EXTRA 




1350 DATA 205,233,145,240,23,140,1,145 
,141,109,144,32,137,145,32,119,6060 
1360 DATA 144,172,1,145,32,2,145,204,1 
18,144,144,225,96,160,0,185,8484 
1370 DATA 55,145,240,23,140,1,145,141, 
109,144,32,137,145,32,169,143,6949 
1380 DATA 172,1,145,32,2,145,204,118,1 
44,144,228,160,0,185,55,145,8268 
1390 DATA 240,23,140,1,145,141,109,144 
,32,137,145,32,212,143,172,1,6577 
14O0 DATA 145,32,2,145,284,118,144,144 
,228,96,0,152,24,105,9,168,5524 
1410 DATA 96,174,113,144,169,0,133,208 
,133,209,202,48,243,165,208,24,1267 
1420 DATA 109,112,144,133,208,144,243, 
230,28 9,208,239,172,118,144,162,0,2796 
1430 DATA 189,109,144,153,55,145,280,2 
32,224,9,144,244,140,118,144,96,1068 
1440 DATA 0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 
0,0,1440 

1450 DATA 0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 
0,0,1450 

1460 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,16 
0,0,173,6468 

1470 DATA 116,144,133,208,173,117,144, 
133,209,169,32,145,208,230,208,208,477 
9 

1480 DATA 2,230,121,145,116,146,209,16 

5,208,205,114,144,208,239,165,209,5897 

1490 DATA 205,115,144,208,232,96,160,0 

,204,118,144,176,13,185,55,145,8661 

1500 DATA 205,109,144,240,8,32,2,145,2 

08,238,160,255,96,162,0,185,269 

1510 DATA 55,145,157,109,144,200,232,2 

24,9,144,244,96,32,25,144,165,9021 

1520 DATA 208,24,105,41,133,208,165,20 

9,165,0,133,209,96,32,175,145,8552 

1530 DATA 173,116,144,133,210,173,117, 

144,133,211,174,113,144,160,0,177,479 

1540 DATA 210,32,234,145,145,208,200,2 

04,112,144,144,243,32,84,144,32,9313 

1550 DATA 96,144,202,208,232,96,0,141, 

197,146,41,128,141,8,146,173,8359 

1560 DATA 197,146,41,127,201,96,176,12 

,201,32,144,5,233,32,76,7,4891 

1570 DATA 146,24,105,64,9,0,96,32,137, 

145,192,255,240,21,32,119,6961 

1580 DATA 144,160,0,185,55,145,205,109 

, 14 4,24 0,9,32,2,145,204,118,7419 

1590 DATA 144,144,240,96,173,118,144,5 

6,233,9,141,118,144,208,6,32,6695 

1600 DATA 57,143,76,191,146,140,198,14 

6,204,118,144,240,87,192,0,208,1686 

1610 DATA 15,173,118,144,201,9,169,132 

,133,210,169,142,133,211,208,15,1102 

1620 DATA 185,53,145,56,233,1,133,210, 

185,54,145,233,0,133,211,185,935 

1630 DATA 62,145,56,233,1,133,208,185, 

63,145,233,0,133,209,160,0,8456 

1640 DATA 177,208,117,146,112,147,145, 

210,198,210,165,210,201,255,208,2,4857 

1650 DATA 198,211,198,208,165,208,201, 

255,208,2,198,209,205,229,2,208,5023 

1660 DATA 225,165,209,205,230,2,208,21 

8,172,198,146,204,118,144,176,9,1940 

1670 DATA 185,64,145,153,55,145,200,28 

8,242,140,198,146,32,57,143,172,858 

1680 DATA 118,144,32,160,145,32,80,143 

,173,118,144,205,198,146,208,239,3786 

1690 DATA 169,0,141,198,146,96,0,0,165 

,33,141,109,144,201,6,144,6134 

1700 DATA 4,104,104,160,164,96,32,199, 

146,32,137,145,192,255,208,3,191 

1710 DATA 160,170,96,173,109,144,10,16 

8,169,0,153,70,148,153,71,148,7556 

1720 DATA 160,1,96,189,65,3,133,33,168 

,185,83,148,240,10,169,0,6310 

1730 DATA 153,83,148,169,155,160,1,96, 


32,140,147,173,83,148,205,113,9094 

1740 DATA 144,144,3,160,136,96,160,0,1 

77,210,72,238,82,148,173,82,9583 

1750 DATA 148,205,112,144,144,15,238,8 

3,148,169,0,141,82,148,164,33,7200 

1760 DATA 169,1,153,83,148,32,120,147, 

104,96,72,189,65,3,133,33,4036 

1770 DATA 32,140,147,173,83,148,205,11 

3,144,144,3,32,189,147,164,201,9301 

1780 DATA 155,240,4,201,96,208,19,32,2 

35,150,32,212,143,32,251,150,331 

1790 DATA 238,83,148,169,0,141,82,148, 

240,15,174,82,148,236,112,144,338 

1800 DATA 176,7,113,147,108,148,160,0, 

145,210,238,82,148,173,109,144,757 

1810 DATA 10,168,173,82,148,153,70,148 

,173,83,148,153,71,148,160,1,7597 

1820 DATA 96,165,33,141,109,144,10,168 

,185,70,148,141,82,148,185,71,8466 

1830 DATA 148,141,83,148,32,137,145,17 

3,116,144,24,109,82,148,133,210,9031 

1840 DATA 173,117,144,105,0,133,211,17 

4,83,148,202,48,65,32,96,144,6828 

1850 DATA 208,248,173,116,144,133,208, 

173,117,144,133,209,160,0,140,82,9851 

1860 DATA 148,206,83,148,32,162,147,16 

5,208,197,210,208,6,165,209,197,4865 

1870 DATA 211,240,17,172,112,144,177,2 

08,160,0,145,208,230,208,208,231,5876 

I860 DATA 238,209,208,227,169,32,145,2 

10,200,204,112,144,144,246,96,32,1860 

1890 DATA 199,146,32,137,145,165,42,20 

5,112,144,176,3,141,82,148,165,8935 

190O DATA 43,205,113,144,176,52,141,83 

,148,165,34,281,100,144,43,32,6352 

1910 DATA 235,150,32,212,143,165,34,20 

1,200,144,28,32,175,145,174,83,9115 

1920 DATA 148,202,48,5,32,84,144,208,2 

48,160,0,177,208,73,128,145,9894 

1930 DATA 208,200,204,112,144,144,244, 

32,251,150,76,120,147,0,0,0,5092 

1940 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

212,146,7456 

1950 DATA 238,146,241,146,56,147,238,1 

46,249,147,76,104,148,160,0,185,702 

I960 DATA 26,3,109,148,104,149,240,5,2 

00,200,200,208,246,169,87,153,3858 

1970 DATA 26,3,169,89,153,27,3,169,148 

,153,28,3,96,216,104,170,6923 

I960 DATA 41,1,208,14,173,26,156,141,1 

34,149,173,27,156,141,145,149,9428 

1990 DATA 208,8,104,141,145,149,104,14 

1,134,149,224,2,144,13,104,141,7619 

2000 DATA 20,151,104,141,19,151,104,10 

4,141,18,151,173,18,151,201,192,9380 

2010 DATA 144,13,201,240,144,4,169,190 

,208,2,169,0,141,18,151,173,8059 

202O DATA 20,151,16,12,169,61,141,19,1 

51,169,1,141,20,151,208,21,5370 

2030 DATA 201,1,144,17,208,7,173,19,15 

1,201,64,144,8,169,0,141,5705 

2O40 DATA 19,151,141,20,151,173,12,151 

,240,3,32,0,149,169,1,141,5065 

2050 DATA 23,151,141,12,151,208,23,104 

,216,169,0,141,23,151,141,12,5888 

2060 DATA 151,173,13,151,133,0,173,14, 

151,133,1,76,67,150,169,152,6738 

2070 DATA 141,244,2,173,18,151,141,17, 

151,173,19,151,133,0,173,20,5270 

2080 DATA 151,133,1,162,3,70,1,102,0,7 

8,17,151,202,208,246,165,9053 

2090 DATA 0,141,122,150,169,40,56,229, 

0,141,154,150,174,17,151,142,8588 

2100 DATA 126,150,202,48,13,165,0,24,1 

05,40,133,0,144,244,230,1,6133 

2110 DATA 208,240,165,0,24,101,88,133, 

0,141,13,151,165,1,101,89,4162 

2120 DATA 133,1,105,149,100,150,141,14 
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,151,173,19,151,41,7,141,21,3857 

2130 DATA 151,173,18,151,41,7,141,22,1 

51,32,133,149,32,206,149,76,6376 

2140 DATA 67,150,169,0,141,171,149,24, 

105,8,141,177,149,169,0,141,7239 

2150 DATA 172,149,105,0,141,178,149,16 

0,0,152,153,0,154,200,192,72,9068 

2160 DATA 144,248,162,0,172,22,151,189 

,255,255,153,0,154,189,255,255,5928 

2170 DATA 153,8,154,232,224,24,176,90, 

224,8,208,2,162,16,200,152,9115 

2180 DATA 41,7,208,227,152,24,105,16,1 

68,208,220,172,21,151,136,48,8805 

2190 DATA 65,162,0,94,0,154,126,8,154, 

126,16,154,232,138,41,7,5170 

220O DATA 208,241,138,24,105,16,170,22 

4,72,144,232,176,225,141,15,151,1295 

2210 DATA 41,127,133,4,169,0,133,5,160 

,3,6,4,38,5,136,208,2252 

2220 DATA 249,165,5,24,105,152,133,5,1 

73,15,151,48,6,169,0,141,3962 

2230 DATA 43,150,96,169,255,208,248,14 

2,16,151,140,17,151,32,240,149,725 

2240 DATA 160,0,174,66,150,177,4,73,0, 

93,0,154,157,0,154,232,6451 

2250 DATA 200,192,8,144,240,142,66,150 

,174,16,151,172,17,151,96,0,6374 

2260 DATA 169,64,141,158,150,160,0,140 

,66,150,162,0,177,0,32,130,5179 

2270 DATA 150,232,200,192,3,144,245,16 

0,40,169,0,141,22,151,177,0,6923 

2280 DATA 32,130,101,150,55,151,150,23 

2,200,192,43,144,245,160,80,177,2940 

2290 DATA 0,32,130,150,232,200,192,83, 

144,245,169,0,133,4,169,0,7637 

2300 DATA 133,5,96,72,173,23,151,208,7 

,104,189,56,151,145,0,96,6126 

2310 DATA 104,157,56,151,32,26,150,152 

,41,3,201,0,176,4,169,0,3571 

2320 DATA 145,0,238,158,150,96,160,0,1 

40,12,151,140,24,156,140,18,5862 

2330 DATA 151,140,19,151,140,20,151,18 

5,0,224,153,0,152,185,0,225,8868 

2340 DATA 153,0,153,185,0,226,153,0,15 

4,185,8,227,153,0,155,200,9593 

2350 DATA 208,229,160,7,169,170,153,21 

6,155,136,16,248,169,128,141,25,599 

2360 DATA 156,169,24,141,26,156,169,15 

1,141,27,156,96,238,24,156,160,9684 

2370 DATA 0,140,23,151,173,12,151,240, 

242,76,8,149,160,1,140,23,6613 

2380 DATA 151,173,12,151,240,3,32,21,1 

49,206,24,156,96,0,0,0,1912 

2390 DATA 0,0,0,0,0,0,0,0,8,224,112,56 

,28,14,15,31,7815 

2400 DATA 63,0,0,48,112,96,224,224,224 
,63,31,15,0,0,0,0,318 

2410 DATA 0,232,216,176,96,192,0,0,0,6 

5,151,255,151,104,216,32,8400 

2420 DATA 235,150,104,104,32,234,145,3 

2,240,149,104,133,1,104,133,0,6372 

2430 DATA 160,31,177,0,145,4,136,16,24 

9,169,152,141,244,2,32,251,3 

2440 DATA 150,76,121,150,104,216,32,23 

0,151,162,151,160,118,169,7,76,9366 

2458 DATA 92,228,216,173,24,156,208,10 

3,238,128,151,169,0,201,2,144,9933 

2460 DATA 94,169,0,141,128,151,173,120 

,2,201,15,240,82,41,12,201,7282 

2470 DATA 4,208,14,173,19,151,24,105,4 

,141,19,151,144,3,238,20,4904 

2480 DATA 151,173,120,2,41,12,201,8,20 

8,14,173,19,151,56,233,4,5542 

2490 DATA 141,19,151,176,3,266,20,151, 

173,120,2,41,3,201,1,208,5892 

2500 DATA 9,173,18,151,24,105,4,141,18 

,151,173,120,2,41,3,201,4295 

2510 DATA 2,208,9,173,18,151,56,233,4, 

141,18,151,32,230,151,76,7472 


2520 DATA 98,228,169,0,72,76,132,148,1 

04,216,169,7,162,228,160,98,818 

2530 DATA 32,92,228,173,12,151,240,3,7 

6,0,149,96,0,156,27,156,5352 

2540 DATA 76,133,142,76,156,142,76,172 

,142,76,132,148,76,254,148,76,398 

2550 DATA 65,151,76,104,151,76,236,151 

,0,128,24,151,226,2,227,2,7391 

2560 DATA 254,142,0,0,0,0,0,0,0,0,0,0, 

0,0,0,0,3098 

• 


Listing 2. 
BASIC listing. 


LQ 10 LIST :POSITION 2,15 
CA 20 0P=39936:CL=39939 

HP 30 A-U5RCOP,1,8,10,20,10):G05UB 200 

N8 40 A=USRCOP,2,2,2,10,10):GOSUB 20O 

UP 50 A^USRCOP,3,5,5,12,12):GOSUB 200 

LZ 60 A=USRCOP,4,24,7,7,5):G0SUB 200 

JO 70 A=U5RCOP,5,28,0,10,10):G05UB 200 

GT 80 LIST ,, W: ,, :G05UB 200 

DI 90 LIST ,, W2: ,, :G0SUB 200 

FP 100 LIST "H3:":GOSUB 200 

GD 110 LIST ,, W4: ,, :G0SUB 200 

GR 120 LIST "W5 : 11 : GOSUB 200 

RP 130 GOSUB 210 

VP 140 A=USRCCL,3):GOSUB 200 

VD 150 A=USRCCL,2):GOSUB 20O 

WH 160 A-USRCCL,4):GOSUB 200 

WX 170 A=USRCCL,5):G05UB 20O 

UV 180 A-USRCCL,1):G0SUB 206 

01 190 END 

Cl 20O FOR N=1 TO 508:NEXT N:RETURN 
AP 210 REM 20 RANDOM OVERLAPS 
WO 220 DIM N$C3) 

PG 230 FOR C=1 TO 20 

LN 240 N-INTCRND C0)*5)+1 

BS 250 NS-"W :":NSC2,2)=CHRSCN+48) 

ZL 260 XIO 150,01,0,0,N$ 

RM 270 GOSUB 208 
EA 280 NEXT C 
ZQ 290 RETURN 

• 

Listing 3. 

BASIC listing. 


BD 10 TRACKER=39954:DATT0SET-39951:5TPTRA 
CKER-39957SDIM ICONS C32) 

MV 20 POKE 752,1:? CHRSC125) 

QD 30 FOR N=1 TO 32:ICONSCN,N)=CHRSCO):NE 
XT N 

UY 40 GOSUB 130:A=USRCDATTOSET,9,ADRCICON 
$)) 

KE 50 A^USRCTRACKER) 

XC 60 IF PEEKC53279)-6 THEN 350 
ZR 70 IF STRIGC0) THEN 60 
UR 80 X=PEEKC4):Y=PEEKC5) 

ZY 90 IF X-0 OR X>16 OR Y=0 OR Y>16 THEN 
60 

RX 100 GOSUB 200 

DF 110 A=USRCDATT0SET,9,ADRCICONS)) 

RE 120 GOTO 60 

II 130 REM SET UP SCREEN 

XB 140 MEM=PEEKC88)+256*PEEKC89) 

JG 150 FOR N-MEM TO MEM+17:P0KE N,138:P0K 
E N + 17*40,138 '.NEXT N 

OV 160 FOR N=MEM TO MEM+17*40 STEP 40:POK 
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E N,138:POKE N+17,138:NEXT N 
JB 170 POKE MEM+25,73:POKE MEM+26,74:POKE 
MEM+65,75:POKE MEM+66,76 
CJ 180 POKE MEM+30,201:POKE MEM+31,202:PO 
KE MEM+70,203:P0KE MEM+71,204 
ZP 190 RETURN 

SM 200 REM PLOT AND UPDATE 
ZS 210 A = USR (STPTRACKER) 

DU 220 MEM=PEEK(88)+256*PEEK(89)+X+40*Y:Z 
= PEEK (MEM) 

SC 230 IF Z-0 THEN POKE MEM,128 
EO 240 IF Z = 128 THEN POKE MEM,0 
CY 250 A = USR (TRACKER) 

RK 260 IF X< = 8 AND Y<=8 THEN CY=Y:CX=8~X 
WI 270 IF X>8 AND Y< = 8 THEN CY=Y+8:CX=16- 
X 

CN 280 IF X< = 8 AND Y>8 THEN CY=Y+8:CX=8~X 
GA 290 IF X>8 AND Y>8 THEN CY=Y+16:CX=16- 
X 

YR 300 T=ASC(ICONS(CY,CY)) 

HJ 310 IF Z = 0 THEN T=INT((T+2 A CX)+0,5) 

SF 320 IF Z-128 THEN T-INT((T — 2 A CX)+0.5) 
YC 330 IC0N$(CY,CY)=CHR$(T) 

ZH 340 RETURN 
DC 350 REM SHOH DATA 

EE 360 A = U5R (STPTRACKER) :OPEN 01,12,0,"5: 
M :POKE 752,1 

ZL 370 PRINT 01;"A=U5R(39945,ADR(";CHR$(3 
4);ICONS(1,32);CHRS(34)j 11 ),X,Y) M :? 

CO 380 PRINT "DATA ";:FOR N = 1 TO 32:? ASC 
(IC0NS(N,N)):NEXT N:? chrS(126) 

LR 390 CLOSE 01 

IP 400 OPEN tti,4,0,"K: ,, :GET Ol,X:CL0SE 01 
ET 410 GRAPHICS 0:G0T0 20 

• 


Listing 4. 

BASIC listing. 

LT 10 0P=39936:CL=39939:MOUETRACKER=39945 
:TRACKER=39954:STPTRACKER=39957:TRMA5K 
=39960 

AZ 20 B0RDERCHAR=3996i:M0UEWIND0W=39942 
PB 30 DIM WINS(2) 

MW 40 GOSUB 30000 
AD 50 STOP 

ED 30000 X1=0:Y1=0:DX1=11:DY1=6:A=USR(OP, 
l,Xi,Y1,DX1,DY1) 

XU 30010 OPEN 05,12,0,"W:" 

DF 3002O PRINT 05;"DIRECTORY" 

WE 30030 PRINT 05J"DELETE" 

SS 30040 PRINT 05;"LOCK/UNLOCK" 

YJ 30050 PRINT 05;"RENAME" 

MT 30060 PRINT O5;"F0RMAT" 

XA 3007O PRINT 05;"** EXIT **" 

BD 30080 MAIN=30110:DIRECTORY=3049O:NAME= 
30590:SURE=30750:DIM NAME$(I8),RENS (31 
),T$(10),X$(3) 

LF 30090 DIR=30160:L0CK=30220:DEL=30180:F 
RMAT=3O440:REN=30260 
TG 30100 A = USR (TRACKER) 

SB 30110 IF NOT STRIG(O) THEN 30110 
PU 30120 N=l:X=Xl:Y=Yl!DX=DXl:DY=DYl:GOSU 
B 31000:X1=X:Y1=Y:INDEX=CH0ICE 
GC 30130 IF INDEX = 6 THEN A = USR (CL,1) :A = US 
R (STPTRACKER) :RETURN :REM EXIT FROM MI 
NI-DOS 

TI 30140 IF INDEX <> 5 THEN GOSUB DIRECTORY 
:G05UB NAME:CLOSE 03 

CH 30150 ON INDEX GOTO DIR,DEL,LOCK,REN,F 
RMAT 

NZ 30160 REM DIR 
TE 30170 GOTO MAIN 
JL 30180 REM DEL 
XH 30190 GOSUB SURE 
DM 30200 XIO 33,04,0,0,NAMES 
SJ 30210 GOTO MAIN 


AN 30220 REM LOCK 

ZW 30230 IF LCK THEN XIO 36,04,0,0,NAMES 
OL 30240 IF NOT LCK THEN XIO 35,04,0,0,N 
AMES 

SZ 30250 GOTO MAIN 
QE 30260 REM REN 

HZ 30265 FOR X=LEN(NAMES) TO 1 STEP -1:IF 
NAMES(X,X)=" " OR NAMES(X,X)=CHR$(155 
) THEN NEXT X 

RO 30270 REN$ = NAMES(1,X) :A = U5R (OP,2,12,0, 
22,1) :L = LEN(REN$) :POKE TRMASK,1 
MB 30280 OPEN 03,12,0,"W2:":OPEN 04,4,0," 
K:":X=9 


CANCEL COMMAND 


OL 30290 PRINT 03;"NEW NAME?" 

CY 30300 XIO 1O0,O2,X,O,"W2:":A=USR(MOUET 
RACKER,(X+13)*8,14) 

MG 30310 GET 04,N 

UB 30320 IF N<>126 THEN 30360 

XD 30330 X=X-1:IF X<9 THEN X=9 

JJ 30340 XIO 50,O2,X,0,"W2:":PUT 03,32 

YZ 30350 GOTO 30300 

BE 30360 PUT 03,N:X=X+1:IF N<>155 THEN 30 
300 

HZ 30370 XIO 50,02,9,O,"W2:" 

PK 30380 INPUT 03,NAMES 

RR 30390 RENS (L + l)=",":RENS(L + 2)=NAME$ 

YB 30400 POKE TRMASK,0:CLOSE O3ICL0SE 04 
XU 30410 XIO 32,04,O,0,RENS 
GD 30420 A=USR(CL,2) 

SX 30430 GOTO MAIN 
5H 30446 REM FORMAT 

BN 30450 IF NOT STRIG(O) THEN 30450 
XE 30460 GOSUB SURE 
NU 30470 XIO 254,O4,0,0, ,, D:“ 

TR 30480 GOTO MAIN 

DT 30490 REM DIRECTORY 

KW 30500 A=U5R(0P,2,12,0,17,22) 

IW 30510 OPEN O4,6,0,"D:*.*" 

RJ 3052O OPEN O3,12,0,"W2:" 

UD 30530 CNT=0 

IP 30540 TRAP 30550:INPUT 04,NAMES:PRINT 
03 J NAMES:CNT = CNT + 1:GQT0 30540 
SS 30550 CLOSE 04 
BA 30560 XIO 20,04,0,21,"W2:" 

HW 30570 PRINT 03;"| 

EU 30580 RETURN 

YC 30590 REM NAME 

YE 30600 IF INDEX<>1 THEN 3063O 

CO 30610 IF STRIG(O) THEN 30610 

UX 30620 A=USR(CL,2)ICLOSE 03:RETURN 

IT 30630 N=2:X=12:Y=0:DX=17:DY=22 

MO 30640 GOSUB 31000 

RT 30650 IF (TY~Y)>=CNT THEN A=USR(CL,2): 

POP :CLOSE 03:GOTO MAIN 
WH 30660 XIO 15,04,0, (TY-Y)-1,"W2: M 
PP 30670 INPUT 03,NAMES 

HN 30680 LCK=0:IF NAMES(1,1)="*" THEN LCK 
= 1 

SR 30690 T$="D:":T$(3)=NAME$(3,10):XS=NAM 
ES(11,13) 

NO 3O7O0 FOR N=1 TO 10:IF T$(N,N)=" " THE 
N L=N:N=12 

GY 3071O'NEXT N:IF N=ll THEN L=ll 
DH 30720 NAME$=TS:NAME$(L,L)=".":NAMES(L+ 
1)=X$:NAMES(L+4)=CHR$(155) 

SO 30730 CLOSE 04 

CG 30740 A = USR (CL,2) :RETURN 

LO 30750 REM SURE 

NZ 30760 A=USR(0P,2,12,7,3,2) 

CU 30770 OPEN 04,8,O,"W2!" 

OU 30780 PRINT 04;"YES" 

ET 30790 PRINT O4;"N0" 

SH 30800 CLOSE 04 

YH 30810 N=2:X=12!Y=7:DX=3:DY=2 
MM 30820 GOSUB 31000 
GT 30830 A=USR(CL,2) 

YG 30840 IF CH0ICE=1 THEN RETURN 
ST 30850 POP :G0T0 MAIN 
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GF 31000 REM *** ALL-PURPOSE WINDOW/TRACK 
ER INTEGRATER CINCLUDE5 WINDOW MOVE OP 
TION) *** 

MA 31010 WIN$="W":WINSC2,2)=STRSCN) :OLDY= 
-1 

XV 31020 TX=PEEKC4):TY=PEEKC5) 

LX 31030 IF TYOOLDY AND TY> Y AND TY < CY + D 
Y + i) AND TX>X AND TX<CX + DX + 1) THEN XIO 
250,ttl,0,TY-CY+l),WINS:OLDY=TY 
IP 31040 IF OLDY <>-1 AND CTY<=Y OR TY> (Y + 
DY) OR TX< = X OR TX>(X+DXJ) THEN XIO 15 
0,ttl,0,0,WINS:OLDY=~i 
YO 31050 IF STRIGCOJ THEN 31020 
YX 31060 IF NOT STRIGCO) THEN 31060 
TW 31070 IF TXOX OR TY<>Y THEN 31150 
IN 31080 POKE B0RDERCHAR,123:XI0 150,01,O 
,O,WINS 

GL 31080 IF STRIGCOJ THEN 31080 
RX 31100 IF NOT STRIGCOJ THEN 31100 
MR 31110 POKE BORDERCHAR,128 
EL 31120 X-PEEKC4J:Y=PEEKC5) 

YK 31130 A = USR CMOVEWINDOW,N,X,YJ 
YD 31140 GOTO 31010 

DL 31150 IF TY< = Y OR TY> CY + DYJ OR TX< = X 0 
R TX> CX + DXJ THEN 31010 
PC 31160 CHOICESTY~Y 
EG 31170 RETURN 

• 

Listing 5. 

BASIC listing. 

OB 10 POKE 82,0:? CHR$ C125J 

MG 20 0P=38836:CL=3883S:C0PY=3885i:BCHAR= 
38861:MOVEWIND0W=33842:STPTRACK=38857! 
TRACKER-38854:MOUETRACKER-38845 
UK 30 ERASETRACK-38848 

MF 40 DIM CLOCKSC32),CALCSC32),DISKSC32), 
NUMSC8J ,FUNC$C4J : FUNC$ = ,, H3B" 

00 50 DIM WINS C2J,WINlS C20J,XC4J,YC4J ,DXC 
4J,DY C4J,H$C2J,MSC2J,S$C2J,NAMESC18J,E 
XTSC4J ,FNAMES C14J :I0CB=848 
SP 60 GOSUB 1580 

YW 70 WINl$ = ,, Fl*U ,, :WINl$C6J= ,, i«»T3 ,, :WINl 

$ ciu ="rs*In": winis ci6j ="[u^ii] ■■ 

SU 80 A = USRCCOPY,ASCC" ,"),ADRCCLOCKS)) :A = 
USR CCOPY,ASCC"“"),ADRCCALC$JJ :A = USR CCO 
PY,ASC C"r"J,ADR CDISKSJ J 
GC 80 FOR N-l TO 4 
WB 100 GOSUB 30150 

XM 110 A=USRCOP,N,XCNJ,YCNJ,DXCNJ,DYCNJJ: 
OPEN ttl, 8,0, WINS : T=N*5~4 : PRINT ttl,'MINI 
$ CT,T + 4J ICLOSE ttl 
HT 120 NEXT N 
CT 130 A=USRCTRACKER) 

GZ 140 IF STRIGCOJ THEN 140 
XH 150 IF NOT STRIGCOJ THEN 150 
WE 160 X=PEEKC4):Y=PEEKC5) 

XT 170 FOR N = 1 TO 4 : IF XOXCNJ OR YOYCNJ 
THEN 220 

LK 180 GOSUB 30150:P0KE BCHAR,123:XIO 150 
,ttl,0,0,WINS 

VU 180 IF STRIGCOJ THEN 180 
SP 200 IF NOT STRIGCOJ THEN 200 
SU 210 POKE BCHAR,128:XIO 150,ttl,O,0,WINS 
: XCN)=PEEKC4) :Y CNJ-PEEK C5J :A = USRCMOVEW 
INDOW,N,XCNJ,YCNJJ:POP :GOTO 140 
HU 220 NEXT N 
OX 230 FOR N = i TO 4 

NF 240 IF Y> Y CNJ AND Y <=Y CNJ +DY CNJ AND X> 
X CNJ AND X <-X CNJ +DX CNJ THEN POP :GOTO 
270 

IA 250 NEXT N 

NL 260 GOTO 140 

FW 270 ON N GOTO 600,880,1560,280 

BG 280 REM MEMO PAD 

YP 280 N=5:X=XC4):Y=YC4):DX=10:DY=4:A=USR 


COP, N, X, Y, DX, DYJ 

QT 300 OPEN ttl,8,0,"W5:":PRINT ttl;"EDIT M 
EMO":PRINT ttlj"LOAD MEMO":PRINT ttl:"SA 
VE MEMO M :PRINT ttl;"PRINT MEMO" 

OG 310 CLOSE ttl:GOSUB 25000 
IZ 320 FOR N—1 TO 5:A-USRCCL,NJ:NEXT N 
XL 330 ON CHOICE GOTO 340,380,430,480 
PK 340 OPEN ttl,4,0,"K:" 

KU 350 GET ttl,X:IF X=27 THEN 370 
CD 360 ? CHRSCXJ;:GOTO 350 
QK 370 CLOSE ttl:GOTO 80 
AX 380 REM LOAD MEMO 

JB 380 A=U5RCTRACKER):GOSUB 1O0OO:IF CHOI 
CE> CNT THEN 80 

GV 400 TRAP 420:OPEN ttl,4,0,FNAMES 
WI 410 POKE IOCB+2,7:GOSUB 580 
WI 420 TRAP 40000:CLOSE ttl:GOTO 80 
GY 430 REM SAVE MEMO 

GA 440 N=5:X=8:Y=10:A=U5RC0P,N,X,Y,24,1): 
OPEN tt2,12,0,"W5 :":print tt2;"Filenawe? 

":left=3 

AD 450 GOSUB 30O0O:A=USRCCL,5):CLOSE tt2 

IS 460 TRAP 480:OPEN ttl,8,0,NAMES 

ZC 470 POKE IOCB+2,11:GOSUB 580 

WU 480 TRAP 40000:CLOSE ttl:GOTO 80 

OK 480 REM PRINT MEMO 

CU 500 DD=PEEKC88J*256+PEEKC88J 

JH 510 TRAP 580 : OPEN ttl, 8,0, "P : 

VS 520 FOR N = 1 TO 24 

BX 530 FOR X=DD TO DD+38:CHAR-PEEKCXJ:IF 
CHAR)127 THEN CHAR=CHAR-128 
EB 540 IF CHAR)=86 THEN 570 
LT 550 IF CHAR)=64 THEN CHAR=CHAR-64:GOTO 
570 

IP 560 CHAR=CHAR+32 

SQ 570 PUT ttl,CHAR:NEXT X:DD=DD+40:PUT ttl 
,155:NEXT N 

WV 580 TRAP 40000:CLOSE ttl:GOTO 80 
EC 580 POKE I0CB+4,PEEKC88JSPOKE I0CB+5,P 
EEK C88J :POKE IOCB + 8,3:POKE IOCB + 8,182: 
A = U5RCADR C'hhhELVQ") , 16) SRETURN 
YU 600 REM CLOCK 

BV 610 N=5:X=XC1):Y=YC1):DX=13:DY=2 
HY 620 A = USR COP,N,X,Y,DX,DY) 

DI 630 OPEN tt2,12,0, ,, W5:" 

DM 640 PRINT tt2;"SET CLOCK*DISPLAY CLOCK" 
KC 650 GOSUB 25000:A=USRCCL,N) 

MU 660 IF CH0ICE=2 THEN 760 
FT 670 A=USRCOP,N,X,Y,12,1):LEFT=6 
WL 680 PRINT tt2;"HOURS?":GOSUB 30000:HRS= 
VAL CNAMES) :LEFT=8 
MY 680 XIO 50,tt3,0,0,"W5:" 

TJ 700 PRINT tt2J"MINUTES?":GOSUB 30000:MI 
N=VALCNAMES) 

MJ 710 XIO 5O,tt3,0,0,"W5:" 

GF 720 PRINT »2;"SECONDS?":GOSUB 30000:SE 
C=VALCNAMES) 

EL 730 POKE 18,0:P0KE 18,0:P0KE 20,0 
MZ 740 A=USRCCL,5) 

AC 750 CLOSE tt2:G0T0 130 

PA 760 REM DISPLAY 

FI 770 A=USRC0P,5,XC1),YC1),8,1) 

GL 780 OPEN ttl,8,0,"W5:" 

LW 780 T=CPEEKC18)*65536+PEEKC13)*256+PEE 
KC20))/60+HR5*36O0+MIN*60+SEC 
YO 800 H=INTCT/3600):M=INTCCT-H*3600)/60) 

:S=INTCT-CH*36OO+M»60)) 

JY 810 H$=5TR$CH):IF H<10 THEN HS="0":HSC 
2)=STRS CH) 

MR 820 MS=STR$CM):IF M<10 THEN MS="0":MSC 
2)=STRS CM) 

VD 830 S$ = STR$CS) :IF S<10 THEN SS = ,, 0":SSC 
2)=STR$CS) 

MQ 840 XIO 50.tt3,0,0,"W5:":PRINT ttljHSj": 
";MS;":";SS 

AV 850 IF STRIGCOJ THEN 780 

FZ 860 IF NOT STRIGCOJ THEN 860 

XD 870 CLOSE tti:CLOSE tt2:A=USRCCL,5):GOTO 
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DM 

CR 

XU 

DH 

JT 

ND 

JH 

JB 

PH 

RH 

CF 

CM 

LP 

MA 

GN 

PA 

00 

RY 

PM 

HJ 

EM 

0J 

KM 

DL 

IX 

OH 

HR 

BV 

UP 

HM 

CO 

AY 

EX 

JO 

OR 

NX 

AO 

BY 

CK 

DP 


130 

880 REM CALCULATOR 

890 X=X(2):Y = Y(2):SUM=0IFUNC=0 

900 A=U5R(0P,5,X,Y,i0,il) 

910 OPEN 82,12,0, ,, W5: M 

920 G05UB 10150 : PRIMT 82 : PRINT 82j ,, | 


980 CNT = 1 

990 IF STRIG(O) THEN 990 
1000 IF NOT STRIG(O) THEN 1000 
1010 TX-PEEKC4):TY=PEEK(5) 

1020 IF TX <> X OR TYOY THEN 1070 
1030 POKE BCHAR,123:XIO 150,81,0,0,"W5 

• II 

1040 IF STRIG(O) THEN 1040 

1050 IF NOT STRIG(O) THEN 1050 

1060 POKE BCHAR,128 IX-PEEK (4):Y=PEEK(5 

):A=U5R(MOVEWINDOW,5 , X,Y):GOTO 990 

1070 IF TX< = X OR TX>X + 10 OR TY<Y + 3 OR 

TY>Y+ll THEN 990 

1080 CX=TX-X-l:CY=TY-Y-3 

1090 IF CCY AND INT (CX/2) OCX/2) OR IN 

T(CY/2) CCY/2 THEN 990 

1100 IF CNT-2 AND NUM$ = ,, . M THEN NUMS(2 
) z"0“ 

1110 IF CY=0 THEN 1220 

1120 NX=(CX-2)/2:NY=(CY-2)/2 

1130 IF NX-0 AND NY = 3 THEN NUM=0:G0T0 

1180 

1140 IF NX-1 AND NY=3 THEN NUMS(CNT,CN 
T)-"."!GOTO 1190 

1150 IF NX<0 OR NX>2 OR NY<0 OR NY>2 T 
HEN 1300 

1160 NUM=7-3*NY+NX 

1170 IF CNT-9 THEN 990 

1180 HUMS(CNT,CNT)=5TRS(NUM) 

1190 IF CNT=1 THEN G05UB 10150I HUMS(2) 

— llll 

1200 XIO 50,ttl,1,0,"H5: M :PRINT 82;NUM$ 
1210 CNT = CNT + 11 GOTO 990 
1220 REM MEMORY 

1230 IF CX = 0 THEN A = U5R (CL,5) :CLOSE 82 
:GOTO 140 

1240 IF CX-2 OR CX = 3 THEN GOSUB 10150: 
PRINT 82;MEMlNUMS=STR$(MEM)IGOTO 980 
1250 IF NUM$ = ,,, ‘ THEN 990 
1260 IF CX-5 OR CX=6 THEN MEM=MEM~UALC 
NUM$):GOTO 1290 

1270 IF CX=8 OR CX = 9 THEN MEM=MEM+VAL( 
NUMS):GOTO 1290 



GB 

■ IL'J 


930 PRINT 82; "C] GH3 EH 
940 PRINT 82 : PRINT «2J‘‘ 
950 PRINT 82 : PRINT 82; M 
960 PRINT 82 : PRINT «2;" 
970 PRINT 82 I PRINT 82; M 


HZ 1450 NUM=5UM*(UAL(NUMS)/1O0):CY=8:CX=6 
:NUM$-5TR$CNUM)iGOTO 1350 
YE 1460 REM SQUARE ROOT 
5U 1470 SUM=SQR(VAL(NUMS)) 

ZS 1480 FUNC=0:NUM$=STRS(SUM):GOTO 1380 
ES 1490 REM CLEAR 

YG 1500 G05UB 10150:GOSUB 1530:HUMS-""!GO 
TO 980 

LI 1510 REM ALL CLEAR 

Z5 1520 GOSUB 10150:XI0 50,81,O,O,"H5I"IP 
RINT 82; " M :FUNC=0:SUM=0:MEM=0:NUMS= ,m 
IGOTO 980 

IG 1530 REM DISPLAY OPERATION 

TQ 1540 IF FUNC THEN XIO 50,ttl,9,0,"H5:■■: 

PRINT 02;FUNC$(FUNC,FUNC) 

RV 1550 XIO 50,81,1,O,‘ , H5: ,, :RETURN 
XG 1560 REM DISK LOADER 

UR 1570 FOR N=1 TO 4 I A = USR(CL,N) I NEXT N:G 
OSUB 10000:IF CHOICE>CNT THEN 90 
DF 1580 RUN FNAME$ 

NC 1590 REM GETDATA 

CM 1600 CLOCK$ = ,, _J\■^■CC[g^[XEO , 

1 0Q0- L »»" 

um 1610 calc$= m ?p* i• 1 ♦ 1 ♦ I 

iniijujnii 

cp 1620 DisK$z<'»»mH 

OA 1630 FOR N=1 TO 4:READ X,Y,DX,DY:XCN)= 
X:Y(N)=Y:DX(N)=DX:DY(N)=DY:NEXT N 
AX 1640 RETURN 
ZP 1650 REM HINDOM DATA 

PL 1660 DATA 0,0,2,2,10,0,2,2,20,0,2,2,30 
,0,4,1 

MM 1OO0O REM DISK SELECTION 
DU 10010 X=13:Y=0:DX=ll!DY=22:N=5 
EZ 10020 A = USR (OP,N,X,Y,DX,DY) 

HA 10030 OPEN «1,6,0, ,, D:*.* ,, 

US 10040 OPEN 82,12,0,"MSI"!CNT-0 
VO 10050 INPUT 81,NAMES:IF NAMES(2,2)= " " 
THEN PRINT 82jNAMES(3,13)!CNT=CNT+1:G 
OTO 10050 
«P 10060 CLOSE 81 
NX 10070 GOSUB 25000 

KN 10080 XIO 50,81,0,CHOICE-1,"H5: M I INPUT 
82,NAMES:CLOSE 82 
AO 10090 EXT$- ,, .":EXTSC2) -NAMES (9) 

OT 10100 FOR N-l TO 8 

DE 10110 IF NAMES (N, N) =■■ THEN 10130 
Tr 10170 MFHT N 

TX 10130 NAME$(N)=EXTS:FNAME$="D: ,, :FNAMES 
(3)=NAME$ 

DJ 10140 CLOSE 82:A=USR(CL,5)I RETURN 

CN 10150 REM CLEAR DISPLAY 

BG 10160 XIO 50,81,1,0,"M5: ,, :PRINT 82; M 


VI 1280 GOTO 990 
NU 1290 FUNC-0:XIO 50,81,0,0,"H5I"I PRINT 
82,■"H":GOSUB 10150IGOTO 980 
PU 1300 C- (CY-2)/2 + 1 

DD 1310 IF CX = 0 AND C>2 THEN ON C-2 GOTO 
1490,1510 

BR 1320 IF NUM$- ,,M THEN 990 

MX 1330 IF FUNC-0 THEN SUM^VAL(NUMS) 

YK 1340 IF CX=0 THEN ON C GOTO 1430,1460 
DR 1350 IF FUNC THEN ON FUNC GOSUB 1390,1 
400,1410,1420IG0SUB 10150IPRINT 82;SUM 
DL 1360 IF CY=8 AND CX=6 THEN FUNC=0:NUM$ 
-STR$(SUM) I GOTO 980 
HT 1370 FUNC=C 

SL 1380 GOSUB 1O150IPRINT 82;SUM:G0SUB 15 
30 I GOT0 980 

GM 1390 SUM=SUM/VAL(NUM$) I RETURN 
DA 1400 SUM=SUM*VAL(NUM$) I RETURN 
EG 1410 SUM=5UM-VAL(NUM$) I RETURN 
DT 1420 SUM-5UM+VAL(HUMS) I RETURN 
YT 1430 REM PERCENT 

VM 1440 IF FUHC=0 THEN SUM=VAL(HUMS)/1Q0: 
GOTO 1480 


JN 

GM 


CB 

YC 

ME 


IM 


BT 

CR 

XT 

EB 


JO 

MR 

MS 

ES 

YR 

ZY 


10170 XIO 50,81,l,0,"M5l":RETURN 
25000 REM *** ALL-PURPOSE MINDOH/TRACK 
ER INTEGRATER (INCLUDES MINDOM MOVE OP 
TION) *** 

25010 GOSUB 30150l0LDY=-l 
25020 TX = PEEK(4) :TY-PEEK(5) 

25030 IF TYO0LDY AND TY> Y AND TY< (Y + D 
Y + l) AND TX> X AND TX<(X + DX + 1) THEN XIO 
250,81,0,TY-(Y+1),MINS:OLDY-TY 
25040 IF 0LDYO-1 AND (TY<-Y OR TY> (Y + 
DY) OR TX<=X OR TX>(X+DX)) THEN XIO 15 
0,81,O,0,MINS IOLDYr-1 
25050 IF STRIG(O) THEN 25020 
25060 IF NOT STRIG (0) THEN 25060 
25070 IF TX <>X OR TYOY THEN 25150 
25080 POKE BCHAR,123 IXIO 150,81,0,0,MI 
NS 

25090 IF STRIG (0) THEN 25090 
25100 IF NOT STRIG (0) THEN 25100 
25110 POKE BCHAR,128 
25120 X = PEEK (4) :Y-PEEK(5) 

25130 A-USR(MOVEHINDOM,N,X,Y) 

25140 GOTO 25010 
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CGM continued 


KI 25150 IF TY< = Y OR TY> CY+DYJ OR TX<=X 0 
R TX>CX+DX) THEN 25010 
MI 25160 A=USRCSTPTRACK> 

PN 25170 CHOICE=TY-Y 
ER 25180 RETURN 

TI 30000 REM INPUT STRING (NEEDS: LEFT,N, 
OPENED I0CBO2,X,YJ 
PT 30010 GOSUB 30170 
XM 30020 C=LEFT:OPEN Oi,4,O."K:" 

LP 30030 XIO iO0,O3,C,O,HINS:A=USR(MOVETR 
ACKER, ( (C+X+l)*8), (Y*8+14)l 
KF 30040 GET 01,CHAR 
MR 30050 IF CHAR<>126 THEN 30090 
DD 30060 C = C-i:IF C<LEFT THEN C=LEFT 
BY 30070 XIO 50,03,C,0,WIN$:PUT 02,32 
ZF 30080 GOTO 30030 
JK 30090 IF C=4 THEN 30030 

ZT 30100 PUT 02,CHAR:C=C+l:IF CHAR<>155 T 
HEN 30030 

ZK 30110 XIO 50,03,LEFT,0,WIN$ 

HW 30120 INPUT 02,NAME$:PRINT 02 
FN 30130 CLOSE Ol:A=U5RCERASETRACK) 

DS 30140 RETURN 

BZ 30150 REM FIND NAME 

IT 30160 WIN$ = ,, W ,, :WIN$(2,2J=STR$(N3 

EE 30170 RETURN 

• 
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TUTORIAL 



by Mark Andrews 


Your Atari computer has a large selection of text and 
graphics modes, and it isn’t difficult to switch from one 
mode to another in the middle of a program. But using 
more than one graphics mode on the same screen at the 
same time—well, that’s a little harder. To mix graphics 
modes on a screen display, it’s necessary to understand 
a programming technique called display-list modification. 
And that’s our topic. 

In a type-and-run program listed at the end of this arti¬ 
cle, I’ll demonstrate how to create a screen display that 
includes three different modes: graphics 0, graphics 1 and 
graphics 2. There’ll be one line of text in each mode, and 
each line will be displayed in a different color. The result 
will be a good-looking title screen that you can use with 
any homemade BASIC or assembly language program. 
Once you understand the principles used to design the 
display, you can create many kinds of mixed-mode 
screens. 

The program used for this demonstration was written 
in assembly language on a MAC/65 assembler-editor pack¬ 
age from OSS. It’s a type-and-run program I’ve named 
HELLO. If you own a MAC/65 assembler, you can type, 
assemble and run the program as written. If you own an¬ 
other assembler, you may have to make some modifica¬ 
tions in the program. And, if all of this talk about as¬ 
semblers and assembly language is a complete mystery to 


you, you can learn assembly language by reading my book, 
Atari Roots: A Guide to Atari Assembly Language, pub¬ 
lished by Datamost in 1983. 

Your Atari’s graphics modes. 

Before I list the HELLO program and explain how it 
works, here’s some background information on how your 
Atari generates its screen display. 

When you turn on your Atari, it automatically goes into 
a screen mode called graphics 0—a standard 40-column 
text mode. B»t if you type the statement GRAPHICS I, or 
include it in a BASIC program, your computer will switch 
to a special text mode that displays “fat” characters— 
characters twice as wide as normal text. The command 
GRAPHICS 2 will give you giant characters, twice as high 
and twice as wide as ordinary characters. And there are 
several other graphics instructions you can use to create 
high-resolution graphics displays. 

That’s an extraordinarily powerful set of graphics modes. 
And, if you know how to program in assembly language, 
you can make it even more powerful. With assembly, you 
can mix your Atari’s graphics modes in any combination 
you like. You can print normal characters, fat characters, 
giant characters and even high-resolution graphics—all 
on the same screen. Then, you can add fine-scrolling to 
any part of the screen you want, for an even more eye¬ 
catching display! 

Along with their many graphics modes, Atari computers 
also have some other graphics-generating capabilities that 
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are quite sophisticated. In computers less advanced than 
your Atari, one block of RAM is usually dedicated to 
screen memory. Within that block of memory—often 
known as “screen memory”—there’s usually one memo¬ 
ry location for each text character on the screen. When 
a certain text character is to be printed in a particular 
screen location, a code number representing that charac¬ 
ter is placed in the memory register that corresponds to 
its screen location. A character which equates to what¬ 
ever code number was used then appears in the desired 
location on-screen. 

Atari graphics are a bit more sophisticated than that— 
and just a bit more complicated, too. Your Atari uses two 
special chips to generate its graphics display: one called 
an ANTIC chip and one called a CT1A/GT1A chip. (The 
early Ataris were built with a CTIA chip; newer models 
use a GTIA.) 

The CTIA/GTIA is a nonprogrammable chip that con¬ 
trols colors and performs various other functions. But your 
computer’s other graphics chip, the ANTIC, is a real 
microprocessor. It has its own miniature instruction set, 
and its operations can be controlled with a special kind 
of program called a “display list.” So, to create graphics 
using the ANTIC chip, you have to know how to use the 
ANTIC chip’s instruction set and how to write display-list 
programs for the ANTIC microprocessor. And, to under¬ 
stand how ANTIC works, it’s necessary to know some fun¬ 
damental facts about the operation of a video display. 

Scan lines and mode lines. 

The picture on a TV screen is made up of tiny horizon¬ 
tal lines — 262, to be exact. Each of these is called a “scan 
line.” 

These scan lines are produced by an electron gun be¬ 
hind your TV monitor’s picture tube. This electronic pis¬ 
tol fires electrons at the TV picture tube in what’s known 
as a “raster scan” pattern—a zigzag pattern that begins 
at the upper left-hand corner of the screen and ends in 
the bottom right-hand corner. 

There are 262 horizontal scan lines on a video tube, and 
the whole 262-line display is replaced by a completely new 
display sixty times each second. Between each of these 
lightning-fast scenery changes, there’s an extremely brief 
interval—called a “vertical blank” period—in which the 
whole screen goes blank. 

Dot-matrix characters. 

Look closely at a computer-generated text display on a 
TV screen, and you may be able to see that each charac¬ 
ter on the screen is made up of tiny dots. If you could look 
closely enough at the screen text graphics generated by 
your Atari—while your computer is in its normal 40- 
column by 24-line text mode—you’d be able to see that 
each letter is made up of sixty-four dots, arranged in a ma¬ 
trix eight dots wide and eight dots high. 

Because of a picture-tube design technique called “over¬ 
scan,” however, not all of the 262 scan lines available for 
a TV picture appear on-screen; some fall off the edges and 
are never seen. So computer programs that generate vid¬ 
eo displays don’t usually make use of all of those lines. 


Your Atari, for example, uses only 192 of the 262 scan lines 
available. 

Atari BASIC supports four text modes, each of which 
produces letters of a different size. But, no matter what 
text mode you’re in, and no matter how large the letters 
on your screen are, each line of text in an Atari display 
is always called a “mode line.” In your Atari’s normal 
40-column by 24-line text mode—the mode referred to in 
Atari BASIC as “graphics 0”—each letter in a mode line 
is eight dots high, and each of those dots equates to one 
scan line. 

In BASIC’s graphics 0 mode, therefore, one mode line 
is equal to eight scan lines. 

There are two other text modes in Atari BASIC— 
graphics 1, in which the characters on-screen are the same 
height as graphics 0 characters but twice as wide; and 
graphics 2, in which the characters are twice as high and 
twice as wide as standard graphics 0 characters. When 
your computer is in its graphics 1 mode, each mode line 
is made up of eight scan lines—the same number of scan 
lines used in a mode line in graphics 0. When your Atari 
is in its graphics 2 mode, however, each mode line equates 
to sixteen scan lines. 

Antic mode 3. 

There’s another text mode, called “ANTIC mode 3,” that’s 
not supported by BASIC. In ANTIC mode 3, each mode 
line is made up of ten scan lines. You can find out more 
about ANTIC mode 3 by reading the Atari programmer’s 
manual De Re Atari, or by consulting the Atari 400/800 
Technical Reference Notes published by Atari. 

In addition to their four text modes, Atari computers 
have numerous graphics modes—either ten or thirteen of 
them, depend on what kind of graphics hardware came 
installed in your model. (The number of graphics modes 
offered by Atari computers varies, with which chip is in¬ 
cluded, CTIA or GTIA). 

In the non-text graphics modes, the number of scan lines 
per mode line can range from one (in high-resolution 
graphics) to eight (in low-resolution). The number of colors 
available also differs from graphics mode to graphics mode. 

Table 1 shows the graphics modes available to Atari 
programmers. You may notice that there are differences 
between the ANTIC and the BASIC designations of these 
modes, and that ANTIC supports more modes than Atari 
BASIC does. And this table doesn’t include the special 
modes available to owners of GTIA chips, since programs 
using those modes won’t work properly on all Atari com¬ 
puters. If you want to use them anyway, you can find out 
how in De Re Atari. 

Customizing your Atari’s screen display. 

Two steps are needed to custom design an Atari screen 
display. First, you have a special kind of program called 
a “display list.” Then you have to tell your computer how 
to use the display list you’ve designed. 

A display list is made up of a series of 1-byte instruc¬ 
tions that can be placed almost anywhere in your com¬ 
puter’s available RAM. Anytime you want to see what a 
display list looks like, you can find one by using your as- 
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Table 1. 



Atari Text and Graphics Modes 


ANTIC 

BASIC 

Scan lines 

No. of 

mode 

mode 

per mode line 

colors 

2 

0 

8 

2 

3 

None 

10 

2 

4 

None 

8 

4 

5 

None 

16 

4 

6 

1 

8 

5 

7 

2 

16 

5 

8 

3 

8 

4 

9 

4 

4 

2 

A 

5 

4 

4 

B 

6 

2 

2 

C 

None 

1 

2 

D 

7 

2 

4 

E 

None 

1 

4 

F 

8 

1 

2 


sembler’s debugging utility to peek into your computer’s 
memory. 

When you turn on your computer, it automatically goes 
into its graphics 0 mode, and the address of the display list 
it uses to generate that mode is always stored in two loca¬ 
tions—specifically, memory addresses $230 and $231. 
Memory register $230 always holds the low byte of the start¬ 
ing address of your computer’s display list, and memory 
register $231 always holds the high byte of the display list’s 
starting address. So, once you know the contents of mem¬ 
ory registers $230 and $231, you’ll be able to locate the dis¬ 
play list your computer’s currently using. 

Once you locate your computer’s graphics 0 display list, 
you’ll find that it looks something like this: 

70 70 70 42 20 7C 02 02 

02 02 02 02 02 02 02 02 

02 02 02 02 02 02 02 02 

02 02 02 02 02 41 E0 7B 

As you can see, a display list is a pretty strange-looking 
program. Let’s examine it, byte by byte, right now: 

BYTES 1-3 
$70 $70 $70 

Each byte in a display list has a specific meaning to the 
ANTIC chip. Within each byte, each nybble—that is, each 
hexadecimal digit—also has a specific meaning. For ex¬ 
ample, this display begins with three bytes that hold the 
same hexadecimal value: $70. In the programming language 
of the ANTIC chip, the value $70 tells ANTIC to display 
one blank mode line—which in BASIC graphics 0, equates 
to eight blank scan lines. 

This, as it turns out, is the standard way to start a dis¬ 
play list for a graphics 0 display. Because of the overscan 
characteristic of a TV screen, it’s standard practice to kick 
off a graphics 0 display with three blank mode lines—or, 
in ANTIC language, with three $70s. That will pull the be¬ 
ginning of your graphics 0 display down to the top of your 
TV’s picture tube, where you can be pretty sure your com¬ 
plete display will be visible on-screen. 

BYTE5 4-6 
$42 $20 $7C 


After three blank mode lines have been displayed, we 
get to the first actual display byte on our sample display 
list: the hexadecimal number $42. In ANTIC language, the 
value $42 is what’s known as a “load memory scan” (LMS) 
command. After all necessary blank lines have been taken 
care of, the first display byte in a display list is always a 
load memory scan command, and an LMS command is al¬ 
ways a 3-byte instruction. In the display list we’re examin¬ 
ing, the load memory scan instruction is made up of the 
3 bytes $42, $20 and $7C. 

The first nybble in this instruction—the digit 4—alerts 
ANTIC that this is an LMS instruction. 

The second nybble in the LMS instruction—the digit 
2 —tells ANTIC to display an ANTIC mode 2 line. Consult 
the table on graphics modes presented a few paragraphs 
back, and you’ll see that, in ANTIC language, mode 2 is 
the same as BASIC mode 0. 

The next 2 bytes of the LMS command—the bytes $20 
and $7C —provide ANTIC with the address at which screen 
memory will begin. ANTIC interprets these 2 bytes low- 
byte first, in standard 6502 fashion. When ANTIC encoun¬ 
ters the LMS instruction $42 $20 $7C, therefore, the first 
byte displayed on your Atari’s video screen will be what¬ 
ever byte is stored in memory location $7C20. 

When you write a display list, you can put your screen 
memory in just about any convenient, available block of 
RAM. And you can fill that RAM up with whatever you 
like—codes that equate to text, display screens drawn with 
the help of a graphics program, or character graphics creat¬ 
ed with a graphics-generator program. Once you have a dis¬ 
play created, you can tell your display list where to find 
it, by placing its starting address in the 2 bytes that follow 
your display list’s LMS command. 

BYTE5 7-29 

The byte $62, repeated 22 tines 

As explained above, the first LMS command in a dis¬ 
play list tells ANTIC two things: the address at which 
screen memory begins, and the graphics mode to use to 
display the first mode line of text or data that will be found 
starting at that address. 

After ANTIC has been presented with this information, 
it must be told what graphics mode to use to generate each 
subsequent mode line that will displayed on-screen. 

In the display list we’re examining, every mode line on 
the screen is an ANTIC mode 2 line. Therefore, the next 
twenty-three instructions in this display list are all the 
same; each will tell ANTIC that the next line on the screen 
will be an ANTIC mode 2 line. 

What would happen, you may ask, if all these instruc¬ 
tions were not the same? Well, if they weren’t, then more 
than one graphics mode could be displayed on-screen 
simultaneously. Text of various sizes could be displayed on 
the same screen, and text and graphics modes could be in¬ 
termixed as desired. This is a very powerful—and quite 
unusual—capability of Atari computers. You’ll get a chance 
to see exactly how it works before you finish this article. 

BYTE5 30 - 32 
$41 $E0 $7B 
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Every display list must end with a 3-byte command 
called a JVB (jump on vertical blank) instruction. The first 
byte in a JVB instruction is always the value $41. The next 
2 bytes always combine to form a jump address. The des¬ 
tination of the jump is always the beginning of the dis¬ 
play list in which the jump is contained. 

As it happens, the display list we’re looking at starts at 
memory address $7BE0. So that’s the address that follows 
(low byte first) the JVB instruction $41. 

When ANTIC encounters the JVB instruction $41 in a 
display list, it jumps back to the beginning of the display 
list, waits for the next vertical blank period between raster 
scan displays, then jumps to the address that follows the 
JVB instruction. And, since this address is the address of 
the beginning of the display list, what the JVB instruction 
really does is run the display list again. 

Running a display list. 

As I’ve pointed out, a display list can be placed in al¬ 
most any convenient spot available in your computer’s 
memory. Screen memory can be placed just about any¬ 
where in RAM, too. Once you’ve created a display list and 
a block of data to be used as screen memory, all you have 
to do to put your custom-designed display on your TV 
screen is write a simple program that tells your computer’s 
operating system (OS) where your display list is. 

To direct your computer to your custom display list, you 
simply store new values into a pair of OS memory loca¬ 
tions known as “shadow” locations. Shadow addresses are 
used often in Atari programming, so I might as well ex¬ 
plain what they are right now. 

In your computer’s memory, there are some very useful 
hardware registers not normally accessed by user-written 
programs. But sixty times per second, the data in each 
of these memory locations is updated. During this updat¬ 
ing process, the value stored in each register is replaced 
by data that’s been stored in a corresponding shadow reg¬ 
ister. And shadow registers are in user-accessible RAM. 
So, by changing the value in a shadow register, you can 
also change the value of its corresponding hardware reg¬ 
ister. For most intents and purposes, therefore, a shadow 
register works just about like any other OS register situat¬ 
ed in RAM. 

Three shadow addresses that are often used in display- 
list programs are $22F, $230 and $231. Address $22F is 
an Atari OS memory location called SDMCTL (Shadow 
Direct Memory Access Control). Addresses $230 and $231 
are OS locations called SDLSTH (Shadow Display List 
Pointer - Low) and SDLSTL (Shadow Display List Pointer 
- High). 

To write a program that will put a custom display list 
on your Atari’s screen, all you have to do is follow these 
three steps: 

(1) Turn your computer’s ANTIC chip off by stor¬ 
ing a 0 in $22F (SDMCTL). 

(2) Store the starting address of your custom dis¬ 
play list in $230 and $231 (SDLSTL and SDLSTH). 

(3) Turn your computer’s ANTIC chip on again by 
storing the value $22 in $22F (SDMCTL). 


Doing it. 

Now that you know how to do all of this, we’re ready 
for action. The following program, together with the arti¬ 
cle you’ve just read, should provide you with all of the 
information you’ll need to start designing your own cus¬ 
tomized display lists and creating your own mixed-mode 
screen displays. O 

Mark Andrews is the author of Atari Roots (Datamost: 
1984), the top-selling book on Atari assembly language 
programming. He is also a frequent contributor to many 
computer magazines. This is the first article he’s written 
for ANALOG Computing. 


Listing 1. 
Assembly listing. 


■HELLO 1 : MIXED MODE SCREEN DISPLAY 



.OPT OBJ 
*= $3000 

JMP INIT 

SDMCTL 

- $022F 

SDLSTL 

= $0230 

SDLSTH 

= $0231 

C0L0R0 

= $02C4 JOS COLOR REGS 

COLOR! 

= $02C5 

C0L0R2 

r $02C6 

C0L0R3 

= $02C7 

C0L0R4 

= $02C8 

JDISPLAY 

LIST DATA 

START 


LINE1 

.SBYTE " FROM " 

.SBYTE "A.N.A.L.O.G.:" 

LINE2 

.SBYTE " a title " 

.SBYTE "screen " 

LINES 

•SBYTE " 

.SBYTE " By (Your NaMeJ" 
.SBYTE " 

LINE4 

.SBYTE " PLEASE " 

.SBYTE "STAND BY " 

■DISPLAY 

LIST 

HLST 


;3 BLANK 

LINES 


.BYTE $70,$70,$70 


JMORE BLANK LINES 

.BYTE $70, $70,$70,$70,$70 
JLMS, ANTIC MODE 6 (BASIC MODE 2) 
.BYTE $46 

J TEXT LINE: "FROM A.N.A.L.O.G.:" 

.WORD LINE1 
jMORE BLANK LINES 

.BYTE $70,$70,$70,$70 
;LMS, ANTIC MODE 7 
.BYTE $47 

;TEXT LINE: "A title screen" 

.WORD LINE2 
;ANOTHER BLANK LINE 
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.BYTE $70 

;LM5, ANTIC MODE 2 (GRAPHICS 0) 
.BYTE $42 

; TEXT LINE: "By (Your NaHe]" 

.WORD LINE3 
; BLANK LINES 

.BYTE $70,$70,$70,$7O 
;LM5, ANTIC MODE 6 
.BYTE $46 

;TEXT LINE: "PLEASE STAND BY" 

.WORD LINE4 
;5 BLANK LINES 

.BYTE $70,$70,$70,$70,$70 
;JOB INSTRUCTION 

.BYTE $41 

;ADDRESS OF DISPLAY LIST 
.WORD HLST 

■RUN PROGRAM 

■SWITCHING COLOR REGISTERS 
;FOR NICELY COLORED DISPLAY 
INIT 

LDA C0L0R3 
STA COLORl 
LDA C0L0R4 
STA C0L0R2 

;NOW WE'LL RUN THE PROGRAM 
LDA »0 

J TURN OFF ANTIC WHILE WE STORE 
;OUR NEW LI5T 1 S ADDRESS IN THE 
; OS DISPLAY LIST POINTER. 

STA SDMCTL 
LDA 8HLST&255 
STA SDL5TL 
LDA tJHLST/256 
STA SDLSTH 
;TURN ANTIC BACK ON 
LDA tt$22 
STA SDMCTL 

FINI 

RTS 
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by Barbara Donovan 

Have you ever wanted a tailor-made file management 
program that will allow you to choose exactly the infor¬ 
mation you want to include —and how you want to mani¬ 
pulate it? Have I got a program for you! 

The inspiration for this came while I was on a diet. Be¬ 
cause I’m a bit of a health food nut, I wanted to know how 
many calories and nutrients various recipes would have. 
This seemed like an excellent application for a computer. 
After all, they’re supposed to be good at numbers—multi¬ 
plying and dividing, and stuff like that. I realized I need¬ 
ed a file with the information I wanted, which could be 
accessed selectively. 

Sounds simple, doesn’t it? Well, I had a database pro¬ 
gram on which I could have set up records for each item 
needed. But that meant, every time I wanted to add up 
a recipe, I would have to go through all those records and, 
by editing them, put a key to indicate which to include. 
I would also have to change the multiple for each item 
desired. Doing it with pencil and paper would be faster. 

After a little thought, I decided what was needed was 
a way to choose which items I wanted to include in a par¬ 
ticular calculation (in computerese, that’s an “indexed- 
sequential” file). This put me off my stride a little. I had 
read that the technique was really complicated. Guess 
what? It's not so bad. 


Using the Atari’s NOTE and POINT functions, the pro¬ 
gram became relatively simple to write. Pointed Note is 
written in a top-down way (this just means everything pos¬ 
sible is in subroutines), so it could be debugged more eas¬ 
ily. Now, if you don’t care how many calories things have, 
don’t despair. Pointed Note will work for any type of data 
you wish to store, recall, organize and/or manipulate— 
calories are just one example. Also, if you save the vari¬ 
ous subroutines by LISTing them, you can easily build an¬ 
other program without a lot of retyping. 

There are a few things you should know about data¬ 
bases. Picture a file cabinet with several drawers. That’s 
the “database.” Each drawer has a bunch of file folders 
relating to the same sort of thing (like bills to be paid). 
That’s a “file.” Each file folder has a sheet of paper with 
information about a particular member of the file (like the 
electric bill). That’s a “record.” And, finally, each sheet 
of paper has various entries on it (like your account num¬ 
ber). Those are “fields.” Fields are made up of alphanu¬ 
meric characters. 

So, what I want to set up is a file of foods, containing 
records for each food with fields of pertinent information. 
For the sake of this discussion, we’ll consider the fields 
to be: (1) the name of the food; (2) and (3) the number of 
base units (i.e., 1 cup —to be treated as 1 and cup—two 
fields); and (4) the calories. Please note that the number 
and type of fields can easily be modified for any appli¬ 
cation. 
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This is a simple matter. I decided the name of the food 
could be a maximum of twenty-five characters, number of 
units a maximum of three characters, the unit itself fif¬ 
teen characters, and the calories three characters. Why is 
it important to decide on this information in advance? Two 
reasons: you need to know how large to dimension the 
variables; and each record must take up exactly the same 
amount of disk space. 

That last needs some explanation. When your computer 
writes data to the disk, it puts one character after another 
until it comes to an end-of-line character (EOL), which it 
also puts on the disk to demarcate the end of that field. 
When your computer inputs data from the disk, it reads 
each characater until it comes to the EOL, then stops. 
Therefore, if we want to be able to make any later changes 
to our data, each field must always be printed with exact¬ 
ly the right number of characters—or the updates and 
previous data may become confused with each other in 
the overwriting. 

In order to make sure of field length, we must pad any 
items less than the set field length with blanks. This is 
done in the PADDATA and PADITEM subroutines, before 
the data is written to disk. 

Now, getting back to that indexed-sequential stuff, we 
want to be able to find any record, read its information, 
manipulate that information and get results. However, we 
don't want to have to read through every record to find 
the one we want. In our sample program this wouldn’t be 
a big deal, but if each record had, in addition to calories, 
Vitamin A, Vitamin B-l, Vitamin E, Calcium, Sodium. . . 
well, you get the idea. It would take forever to go through 
all of them every time. With this program, we only have 
to go through all of them when adding new records. 

When we add new records, we’ll find out at which sec¬ 
tor and character on disk the record begins and go direct¬ 
ly to that location. This is done by having a separate file 
(another drawer in our cabinet), containing a record with 
only the name of the item, sector and character. Neat, huh? 

Basically, we need two functions to accomplish this. 
NOTE tells us where on disk the read/write head is lo¬ 
cated. The form is: 

NOTE #(channel no.),SECT,CHAR 

Channel number refers to the line you’ve opened to the 
disk drive, as in: OPEN #t,4,0,"D:DATA.FIL". SECT and 
CHAR are variable names which will contain, respectively, 
the sector number and character position of the drive head. 
Each sector has 128 character positions. 

POINT tells the read/write head to move to a specified 
position and start operations there. The form is: 

POINT #(channel no.),SECT,CHAR 

As you see, it’s similar to the NOTE statement. The sec¬ 
tor and character positions must be given as variables. 
(Also, keep in mind that you can only POINT to a posi¬ 
tion in a file which exists and has been OPENed). 

The OPEN statement allows you to communicate direct¬ 
ly with peripheral devices, such as disk drives, cassettes, 
printers, keyboard, etc. Each device has a letter specifi¬ 
cation. We’re only concerned with the disk drive, which 
is indicated by "D: (the colon is necessary), and must be 


followed by an existing filename (with one exception, dis¬ 
cussed below). 

In examining the OPEN statement, we’re most con¬ 
cerned with the second specification (i.e., the #4 in OPEN 
#1,4,0,"D:DATA.FIL"). There are four modes of communi¬ 
cation available when OPENing to the disk drive: (1) in¬ 
put (mode 4) allows you to read only the data in your file; 
(2) output (mode 8) allows you to write only to the data 
file—when OPENing in this mode, the drive head will be 
at the beginning of the file; (3) append (mode 9) allows 
you to add data to the end of the file—the drive head upon 
OPENing will point to the end of the file and automati¬ 
cally allot another 128 characters, minimum, of disk space 
to that file; and (4) update (mode 12), which allows both 
reading and writing to the file—upon OPENing, the drive 
head will be at the beginning of the file. 

Mode 8 is the only way to create a file. If mode 8 is speci¬ 
fied (write only), DOS will open a file with the name 
specified and write data to it, if desired. Modes 8 and 12 
will write over and destroy any previous data. 

Now we get to the simple part. All we have to do to add 
data to our file is specify mode 9 (append), give the data 
to the computer, and have it added to the end of our file. 
Then, to find out where it is on the disk so that we can 
index it, we OPEN for a read (mode 4), NOTE the posi¬ 
tion of the head, read a record, write the name of the rec¬ 
ord and its position to the index, NOTE the position of 
the head again, read the next record, etc. . .until the end 
of the file. 

Now, when we want the info back, all we have to do 
is search our shorter index file, find the location of the 
item we’re looking for, and have the read/write head 
POINT there and start inputting. 

Let’s look at the program—a lot easier than trying to ex¬ 
plain all this. The beginning merely dimensions the string 
variables needed, fills BLANK$ with spaces and assigns 
line numbers to variables. This way, when I call a subrou¬ 
tine, I have an idea what it does (instead of seeing a 
meaningless number). 

And, if I renumber a subroutine, I just change one vari¬ 
able to point to that subroutine from any part of the pro¬ 
gram. Also, Line 82 identifies an end character, so the 
computer knows when we’re finished adding, updating, 
or using data. 

Lines 100-260 are the main menu. 

Lines 300-391 form the routine to find a particular rec¬ 
ord, show you the basic unit, ask for a multiple, and print 
the number of calories for that food item. As you can see, 
most all it does is call on subroutines. This simplifies writ¬ 
ing the program since the same procedures are used in 
the other main routines. For example, ITEMIN, merely asks 
for the name of the food you want, has it padded with 
spaces in the PADITEM subroutine so it’s the required 
twenty-five characters long, and returns. 

Data is padded by converting all nonstring variables to 
string variables, checking variable lengths, and adding 
blanks if necessary to fill the allotted space. 

FINDITEM locates the item in the index file and reports 
back. Next, the data is read—RDDATA subroutine—by 
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POINTing to the correct position on the disk file and read¬ 
ing the information. 

The UNITIN subroutine gets the multiple (i.e., you’re 
using two apples in a recipe and the base unit is 1). 

Then FIGCAL and CALPRNT, as their names imply, fig¬ 
ure out the calories, print them out, and return. 

Once the last item is indicated by a CTRL-E entry, the 
program calls subroutine TOTPRNT, to print out the to¬ 
tal number of calories for all items and quantities speci¬ 
fied, then returns and waits for you to hit RETURN, to 
go back to the main menu. 

Lines 400-450 are the main routine to add new records 
to the file. Notice that this opens a channel to mode 9 (ap¬ 
pend). This routine calls subroutines already found, such 
as ITEM IN. 

WRITEDATA prints on disk all the data fields (i.e., 
name, number, unit and calories) and waits at the end of 
the file for any more additions. 

If CTRL-E is entered, signalling no more additions, the 
channel to the data file is closed, and the program calls 
the INDEX subroutine. It OPENs two channels, one to read 
the data file and NOTE the position of each record, and 
one to write a new index file (mode 8) over any old one 
still there. When finished, it returns to the main menu. 

Lines 500-570 are the update main routine, to easily alter 
a record (old record:Banana, 1 , medium, 101/new roc orcI:Ba- 
nana. 1,large,116). This is the reason we’ve been padding 
our data fields. Even though a new field may have more 
or less characters than the old, it won’t change the disk 
position of the record. 

The only new subroutines are: NWDATA, which gets 
the changes you want to make; and WRITNW, which then 
POINTs to the beginning of the old record and writes over 
it with the new data. 

Finally, the TRAP statements send the program to 
ERRORl. This is an easy way to handle end-of-file. When 
the end is reached and the computer’s asked to read more, 
an error occurs, and program execution halts. By using an 
error handler routine to check which error had occurred, 
the program may continue—even though an item is not 
found. Control is returned to the correct portion of the 
program by assigning each main routine a number con¬ 
tained in the variable TEST. 

All that’s left is to create the files to be used. This is 
done in immediate mode (when the screen says HEADY). 
]ust key OPEN #1,8,0,"D:DATA.FIL" and press RETURN. 
Then CLOSE #1 and RETURN. The same should be done 
to create the index file: OPEN #1,8,0,"D:INDEX.FIL". To 
start your file, run the program and hit 2 to enter the ADD 
routine. Now, key the information asked for, and it will 
be written to the data file and index file, appropriately. 

Three useful expansions of this type of program would 
be a directory, a multiple file routine and a hard-copy 
subroutine. 

The directory could print out either all names of the 
records or all the records in their entirety, by accessing 
the index file or the data file, respectively, and sequen¬ 
tially listing their contents. 

A multiple file would be used to remember a certain 


combination of records, such as a recipe. By putting in 
the name of a food item and its unit multiple, another file 
can be added to, with records containing: (1) recipe name, 
(2) number of items, (3) list of sector/character locations 
wilh a HOWMANY unit multiplier. By setting up a 
FOR/NEXT loop based on field (2), you could quickly 
POINT to each item included and figure the multiple for 
that particular recipe. 

You’ll notice that I’ve used arrays for SECT and CHAR 
to facilitate this type of application. The arrays will con¬ 
tain sector/character positions for each item. When the 
FOR/NEXT loop is entered, the loop index is used as the 
array index, and the correct data will be written or read 
for Ihe assigned number of items. 

Simplest of all, to obtain hard-copy, insert a question 
at the beginning of a routine—such as, Do you want a print 
out? Then, based on the INPUT answer, a variable (i.e., 
PO$] is set. If the answer is yes, a hard-copy subroutine 
is called from a main routine. 

As I mentioned, this program is easily adapted to other 
uses: inventories, student test data, bills paid and pay¬ 
able, etc. I would be interested in hearing of other appli¬ 
cations. Cl 


Barbara Donovan, a native New Yorker, lives in Virginia 
with her writer-husband and their three children. She is 
now taking courses and plans to seek a Ph.D. in Computer 
Science in the near future. She's been a computer hobbyist 
since 1979 (starting on a TRS-80, which was destroyed in 
a fire) and, since 1983, has been a loyal Atari owner. 


The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 


Listing 1. 

BASIC listing. 

AE 10 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
MF 11 REM * FILE MANAGER * 

MB 12 REM * BY * 

OK 13 REM * BARBARA D0N0UAN * 

AM 14 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
BI 15 REM 

IM 17 REM xxxxx DIMENSION AND XXXXXXXXX 
RJ 18 REM *** INITIALIZE VARIABLES X- XX X 
NR 20 DIM ITEMS (25) ,UNIT$(15) ,NAME$(25) , C 
$(3) ,LASTITEM$ (25),SECT$(3),CHAR$(3) ,N 
UM$(3),CAL$ (3) ,BLANKS (25),TEMP$(3) 

ME 25 DIM CHAR (15),SECT(15) 

PZ 26 BLANKS — 11 ":BLANK$ (25)=BLANK$:BLANKS 
(2)=BLANK$ 

ZB 30 ADDITEM=400:CALPRNT-1350:CLEARSCR-1 
400:C0UNTCAL=300 : ERR0R1=1500:FIGCAL=13 
00!FINDITEM=1050:INDEX=1600 
WV 63 PADITEM=1950:PADSECT=1980:PADDATA=2 
040:ITEMIN=1000:IUPDATE=500:MENU-100:N 
HDATA=1800:RDDATA=1150:TOTPRNT=1450 
HM 74 UNITIN = 1250:HRITEDATA = 1700:HRITNW=1 
850 

WZ 82 LASTITEM$(1,1) ="n *’:LA5TITEM$(2,25)= 
BLANK$ 

CM 97 REM xxxxxxxxx MAIN MENU xxxxxxxxxx 
0M 100 PRINT "IS" 

TZ 110 POSITION 2,2:PRINT ■■TO": POSITION 2 
0,2: PRINT ■■press: 11 


ATARI 8-BIT EXTRA 


ANALOG COMPUTING 115 





^ Pointed Note continued 


PA 120 POSITION 2,4:PRINT "COUNT CALORIES 
":POSITION 20,4:PRINT "1 <RETURN>" 

JZ 130 POSITION 2,6:PRINT "ADD AN ITEM":P 
OSITION 20,6:PRINT "2 <RETURN>" 

QZ 140 POSITION 2,8:PRINT "UPDATE ITEM":P 
OSITION 20,8:PRINT "3 <RETURN>“ 

BA 180 TRAP 270:REM /ONLY TAKE NUMBERS/ 

NS ISO POSITION 2,22:PRINT "WHICH";:INPUT 
C 

RN 200 ON C GOTO COUNTCAL,ADDITEM,IUPDATE 
UE 260 GOTO ISO:REM /NO.BETWEEN 1~6 ONLY 
ZF 297 REM xxxxxx CALORIES FOR 1 xxxxxxx 
DJ 298 REM XXXXXX OR MORE ITEMS XXXXXXXX 
LC 300 PRINT "IS":T0TAL=0:P = 8:TEST = 310:I = 1 
DZ 305 TRAP ERR0R1 
DM 310 GOSUB ITEMIN 

YJ 320 IF ITEMS-LA5TITEM$ THEN 390 

OB 330 GOSUB FINDITEM 

RN 340 GOSUB RDDATA 

LW 350 GOSUB UNITIN 

NH 360 GOSUB FIGCAL 

FW 370 GOSUB CALPRNT 

HJ 380 GOSUB CLEARSCR:GOTO 310 

XR 390 GOSUB TOTPRNT 

XG 391 POSITION 2,23:PRINT "PRESS RETURN 
FOR MENU"; : INPUT CS.'GOTO MENU 
BU 397 REM xxxxxx ADD NEW ITEM xxxxxxx 
OX 400 PRINT "IS" :TEST = 410 STRAP ERR0R1 
YO 402 OPEN 81,9,0,"DsDATA.FIL" 

DN 410 GOSUB ITEMIN 

GF 420 IF ITEMS=LASTITEM$ THEN CLOSE 81:G 
OSUB INDEX:GOTO MENU 
YD 430 GOSUB WRITEDATA 
ID 450 GOSUB CLEARSCR:GOTO 410 
ZP 497 REM xxxxx UPDATE DATA FILE xxxxx 
QQ 500 PRINT "IS" 

BH 510 TEST-510:TRAP ERR0R1 
DO 520 GOSUB ITEMIN 

AA 525 IF ITEM$::LASTITEMS THEN GOTO MENU 

UD 530 GOSUB FINDITEM 

RP 540 GOSUB RDDATA 

VT 550 GOSUB NWDATA 

XD 560 GOSUB WRITNW 

JH 570 GOSUB CLEARSCRlGOTO 510 

CW 997 REM XXXXXX ENTER ITEM/NAME ** XX - XX 

05 1000 POSITION 2,2 

WN 1010 PRINT "(<CTRL>'E'<RET>=STOP)"; 

WR 1020 PRINT "ENTER ITEM:":INPUT ITEMSiL 
I=LEN(ITEMS) 

NM 1025 GOSUB PADITEM 
AI 1030 RETURN 

UP 1047 REM X - xx -x FIND ITEM LOCATION XXXX 
DG 1050 OPEN 81,4,0,"D:INDEX.FIL" 

QW 1060 TRAP ERR0R1 
DB 1070 INPUT 81;NAMES 

KY 1080 INPUT 81;SECT$:SECTCI)=VAL(SECTS) 
RD 1090 INPUT 8i;CHAR$:CHAR(I)-UAL(CHAR$) 
IL 1100 IF NAME$=ITEM$ THEN CLOSE 81:RETU 
RN 

QG 1110 GOTO 1070 

HY 1147 REM *** READ IN DATA FOR ITEM *** 
GO 1150 OPEN 81,4,0,"DSDATA.FIL" 

UZ 1160 POINT 81,SECT(I),CHAR(I) 

DD 1170 INPUT 81;NAMES 
SK 1180 INPUT 81;NUM$ 

XE 1190 INPUT 81;UNIT$ 

YG 1200 INPUT 8i;CAL$ 

MQ 1210 CLOSE 81 
AJ 1220 RETURN 

JZ 1247 REM *-** GET NUMBER OF UNITS X XXX 
QG 1250 POSITION 2,4:PRINT "UNIT:";0AL (NU 
MS)J" ";UNIT$ 

NC 1260 POSITION 2,6:PRINT "HOW MANY UNIT 
S";SINPUT HOWMANY 
AY 1270 RETURN 

LF 1297 REM x* FIGURE NUMBER CALORIES X* 
WS 1300 ICAL=UAL(CAL$) 

00 1305 ICAL=ICALXHOWMANY 


RU 1310 TOTAL=TOTAL+ICAL 
AL 1320 RETURN 

PS 1347 REM X PRINT NUMBER OF CALORIES X 
YA 1350 RP=2 

BM 1360 POSITION RP,PsPRINT ITEMS(1,LI)SR 
PrRP+LI+2 

CB 1365 NUM=VAL(HUMS) 

XI 1370 POSITION RP,PSPRINT NUM*HOWMANYj" 
";UNITS 

FE 1380 POSITION 32,P:PRINT ICAL 
UU 1390 P-P + l:RETURN 

AA 1397 REM xxxxx CLEAR INPUT AREA XXXXX 
LH 1400 POSITION 2,2:PRINT " 

■ ■ 

SO 1405 POSITION 2,3:PRINT " 

II 

NG 1410 POSITION 2,4:PRINT " 

II 

SX 1412 POSITION 2,5:PRINT " 

II 

AA 1415 POSITION 2,6:PRINT " 

II 

UZ 1417 POSITION 2,7:PRINT " 

II 

AN 1420 RETURN 

WO 1447 REM XX* PRINT TOTAL CALORIES X** 
HN 1450 POSITION 2,21:PRINT "TOTAL CALORI 
ESS",TOTAL 
AZ 1460 RETURN 

GP 1497 REM XXXXX ERROR HANDLER 81 XXXXX 
EU 1500 ERR-PEEK (195) :CLOSE 8i:P0P 
RZ 1505 GOSUB CLEARSCR 

JT 1510 IF ERR—136 THEN POSITION 2,2:PRIN 
T "ITEM NOT FOUND"S GOTO 1530 
QP 1511 IF ERR=8 AND TEST=310 THEN P05ITI 
ON 2,2:PRINT "NUMERIC INPUT ONLY":GOTO 
1530 

MY 1512 IF ERR=8 AND TEST=410 OR TEST=510 
THEN POSITION 2,2:PRINT "SEPARATE NUM 
BER AND UNIT BY A C0MMA":G0T0 1530 
EN 1520 POSITION 2,2:PRINT "UNEXPECTED ER 
ROR 8";ERR 

XK 1530 POSITION 2,3:PRINT "ANYKEY=CONTIN 
UE" 

YD 1535 POSITION 2,4:PRINT "<CTRL>'E 1 =MEN 
U" 

TC 1540 OPEN 82,4,O,"K S"S GET 82,C:CL05E 8 

2 

OS 1550 IF C=5 THEN GOTO MENU 

BL 1560 GOSUB CLEARSCR:GOTO TEST 

OP 1597 REM X*X RECORD INDEX LISTING XXX 

UH 1600 TRAP 1675 

NU 1605 GOSUB PAD5ECT 

FK 1610 OPEN 81,8,0,"D:INDEX.FIL" 

HD 1620 OPEN 82,4,0,"D:DATA.FIL" 

AA 1630 NOTE 82,SECT,CHAR 
El 1635 INPUT 82;NAMES 
SO 1640 INPUT 82;NUM$ 

YG 1645 INPUT 82;UNIT$ 

ZQ 1650 INPUT 82jCAL$ 

CE 1655 PRINT 81;NAME$ 

KK 1660 PRINT 81;SECT 
BC 1665 PRINT 81;CHAR 
SC 1670 GOTO 1630 

TN 1675 IF PEEK (195)-136 THEN CLOSE 81S CL 
OSE 82 

BJ 1680 RETURN 

ZD 1697 REM *** RECORD DATA FOR ITEM *** 
NH 1700 POSITION 2,3:PRINT "NUMBER,UNITS" 

; SINPUT NUM,UNITS:NUM$-STR$(NUM) 

OB 1710 POSITION 2,4:PRINT "CALS"jSINPUT 
GAL:CALS=STR$(CAL) 

KG 1720 PRINT 81,'ITEMS 
AY 1725 GOSUB PADDATA 
OK 1730 PRINT 81;NUMS 
UE 1740 PRINT 81JUNITS 
XI 1750 PRINT 81;CALS 
AQ 1755 NOTE 81,SECT,CHAR 
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BF 1760 RETURN 

BB 1797 REM *** GET NEW DATA FOR ITEM *** 
OF 1800 POSITION 2,4:PRINT "NUMBER,UNIT= 

"UAL (NUMS) J" "JUNIT$ 

OS 1810 POSITION 2,5:PRINT "CHANGE TO:";: 

INPUT NUM,UNIT$:NUM$=STR$(NUM) 

ZA 1820 POSITION 2,6:PRINT "CALORIES= "JU 
AL (CALS) 

UU 1825 POSITION 2,7:PRINT "CHANGE TO: "J 
:INPUT CAL:CALS=STRS(CAL) 

AY 1830 RETURN 

JE 1847 REM **** WRITE REUISED DATA **** 
QD 1850 OPEN »1,12,0,"D:DATA.FIL" 

UN 1860 POINT tti, SECT (I) ,CHAR(I) 

KX 1870 PRINT OlJITEMS 
BP 1875 GOSUB PADDATA 
RB 1880 PRINT »1;NUM$ 

UU 1890 PRINT ttljUNITS 
NX 1900 PRINT ttljCALS 
DW 1910 CLOSE ttl ! RETURN 

DX 1947 REM »K 'X 'H * PAD ITEM FIELD * **** 

RB 1950 LI=LEN(ITEMS) 

OK 1955 ITEMS CLI + i,253 -BLANKS 
BJ I960 RETURN 

DB 1977 REM *** PAD SECT/CHAR FIELDS *** 
RR 1980 LTH=LEN(SECT$) 

ZR 1985 IF LTH = 2 THEN SECTS (2,3)=SECTS:SE 


ct$ ci,n ="o“ 

OW 1990 IF LTH=i THEN SECTS (3,3)=SECT$!SE 
CT$(1,2)="00" 

JD 1995 LTH=LEN(CHARS) 

ftZ 2000 IF LTH = 2 THEN CHARS(2,3)=CHARS:CH 
AR$(1,1)= "0" 

JP 2005 IF LTH = i THEN CHARS (3,3)=CHARS:CH 
AR$(1,2)="00" 

AD 2010 RETURN 

UW 2037 REM ***** PAD DATA FIELDS ****** 
CX 2040 LU=LEN(UNIT$) 

ZU 2045 UNIT$(LU+1,15)=BLANK$ 

XM 2050 LTH=LEN(NUMS) 

RM 2055 IF UAL(NUMS)<1 THEN GOTO 2070 
AF 2060 IF LTH=2 THEN NUMS(2,3)=NUMS:NUMS 
( 1 , 1 )=" 0 ” 

ND 2065 IF LTH=i THEN NUMS(3,3)=NUMS:NUMS 
( 1 , 2 )=" 00 “ 

FO 2070 LTH=LEN(CALS) 

FC 2075 TEMP$=CAL$!CAL$="OO0" 

KU 2080 IF LTH = 2 THEN CALS (2,3)=TEMP$ 

MB 2085 IF LTH = i THEN CALS (3,3)=TEMP$ 

BT 2090 CAL$=TEMP$ 

BU 2095 RETURN 

• 
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ULTIMATE STORAGE 

Here’s the perfect way to organize your ANALOG Computing library—sturdy, custom-made binders 
and files in deep blue leatherette with embossed silver lettering. Silver labels are included to index 
by volume and year. One binder or a box-style file is all you’ll need to accommodate 12 issues (1 
year) of ANALOG Computing— all the games, programs, tutorials and utilities that you want handy. 


The ANALOG Computing binder opens flat for easy reading and reference. They’re economically 
priced at only $9.95 each—3 binders for $27.95 or 6 binders for $52.95. 

The ANALOG Computing file is attractive and compact, holding 12 issues for easy access. Files 
are available for only $7.95 each—3 files for $21.95 or 6 files for $39.95. 


Add $1.00 (outside U.S., add $2.50) per case/binder for postage and handling — U.S. funds only. 


Call Toll Free 1-800-972-5858 


Charge orders only, minimum $15.00 


Enclosed is my check or money order in the amount of $_. 

Please send me: _ ANALOG Computing files _ ANALOG Computing binders. 

PLEASE PRINT. 


Address: (No RO. Boxes) 


Zip Code: 


Send your order to: 


Jesse Jones Industries 

DEPT. ACOM, 499 East Erie Ave., Philadelphia, PA 19134 


PA residents, add 6% sales tax 


Satisfaction guaranteed or money refunded. 












UTILITY 






by Jim Ehninger 

A month ago, a friend of mine was having problems 
with his disks. His little brother was playing his games 
without permission; his sister was reading his AtariWriter 
files, and his dad replaced one of his BASIC files with a 
program that said, “Happy April Fool’s Day.” He came to 
me for help. 

I created a short AUTORUN.SYS file that required a cer- 
tian keypress before you could run DUP.SYS. But they 
could still get in by booting another disk, then reading 
the directory from there. “Give me time,” I said. A week 
later, Password was created. 

So what will it do? 

Type in Listing 1 (the BASIC listing). Do not type in 
the assembly language source code; this is for advanced 
programmers to look over. Save the program. Insert a blank 
disk (or a disk that may be formatted) and execute the pro¬ 
gram, using item P at the first prompt. The current DOS 
in memory will be written to the disk, then the program 
will ask you for a password. A hint: use a short, one-word 
password that’s easy to type in, easy to remember, and isn’t 
too obvious. 

After the program is through, it will reboot and let you 
try out your new, protected disk. I won’t guarantee it will 
work for people like Tom Hudson or Kyle Peacock, but it 
will probably keep your family and friends out. 


Any questions? 

The following are some questions you may have about 
PassWord. First, how does it work? The program works 
by moving the disk directory (normally sector 361) to a 
different location. When you try to boot another disk and 
read the directory, you don’t see a list of the files on that 
disk. Therefore, we have the protection we want. 

Can someone else boot their PassWord disk and “get 
into” my disk? No, I thought of that, too. On almost all disks 
the directory is in a different place. The odds of two Pass- 
Word programs being the same are about 1 in 256. 

Sounds good. How can I transfer DOS files to my Pass- 
Word disk? There are two methods I’ve found: (1) use the 
COPY+ 4.0 program supplied in Listing 1; or (2) type 
POKE 1955,89:POKE 1956,228 to toggle DOS access, load 
the file, then POKE 1955,0:POKE 1956,4 to return to Pass- 
Word access, and save the program. 

Great! You’ve just given away the secret. No, they still 
have to boot up your disk before those POKEs will work. 
And please be careful when using these POKEs. 

COPY+ 4.0. 

The subroutine at the end of Listing 1 is a utility that 
enables you to copy any DOS file to your PassWord disk, 
and vice versa. You must boot your PassWord disk up to 
run this program. Otherwise, your computer will lock up 
and take a short trip to the Twilight Zone. 

The COPY + 4.0 program (yes, there were four versions) 
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and the PassWord program should be saved as one pro¬ 
gram. It’s best to copy this program onto your PassWord 
disk if you’re going to be doing a lot of copying (say, us¬ 
ing it as a programming disk). Please specify this at the 
prompt. 

If you have any questions about PassWord or COPY + 
4.0, or if you make up some new utilities for PassWord, 
write to the Reader Comment section. Users with 300- 
baud modems can leave me a message on StarGate Earth 
Bulletin Board System: (801) 272-1518, 10 p.m. to 7 a.m., 
seven days a week, ATASCII and full duplex. Have fun 
with your PassWord. Cl 


Jim Ehninger has owned an Atari 800 since 1982. Jim 
enjoys telecommunications and programming 6502 ma¬ 
chine language and BASIC. He enjoys more cerebral games 
and is a remote SYSOP of Wally World BBS, 801-255-9345. 


The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 


Listing 1. 
BASIC listing. 




P/W - BY: JIM EHNINGER 
FOR ANALOG COMPUTING 




AB 10 REM 
GU 20 REM 
IG 30 OPEN tt2,12,0,"E:" 

50 40 GRAPHICS 0ISETCOLOR 2,0,0 
TB 50 OPEN tt3,4,0,"K:":DIM D0S$ (128) , PWS C 
30),D$(10O0),D5KINV$ (5), B$(128),AS(255 
),N0$ £128),PS(2),ME$(10) 

YD 55 ? "(P)/W prograw, or CG)o to C0PY+ 
4.0 : " J : INPUT tt2,P$:IF P$= ,, G M THEN G05 
UB 10O0 .'END 

EX 60 Kl-PEEK (58404)+1:K2 = PEEK(58405) : Pl = 
PEEK (58374)+1:P2 = PEEK(58375):P$=CHR$(P 
1) :P$(2)=CHR$(P2) 

MT 70 FOR A-l TO 128:N0$(A)=CHR$(0) :NEXT 
A 

CT 80 ? "P/W DISK BOOT MAKER - BY JIM EHN 
INGER" 

HR 90 ? "(C) 1985 ANALOG COMPUTINGS" 

AS 1O0 ? "INSERT A DISK INTO DRIVE 1.4" 

dp no ? " i:r;i:i:n:tH -THis will erase all con 

TENTS" 

GW 120 ? "ON THAT DISK!*" 

QX 130 ? "PRESS RETURN:"; 

KP 140 GET H3,D:IF D<>155 THEN 140 
DZ ISO ? "DFORMATTING DISK..."; 

UP 160 XIO 254,ttl,0,0,"D:" 

PE 170 ? "CjCREATING SPACE..."; 

YG 180 OPEN O1,8,0,"D:SPACE.PW" 

DL 190 FOR A=1 TO 380:PUT «1,0:NEXT A:CL0 
SE ttl 

RS 20O ? "[JWRITING DOS . SYS . . . "; 

HX 210 OPEN ttl ,8,0, ,I D:D05.SY5":CL05E ttl:? 
CP 211 ? "WOULD YOU LIKE OTHER FILES ON T 
HE"!? "THE DISK BESIDES DOS? (i.e. DUP 
.SYS,":? "AUTORUN.SYS, etc.) <Y/N>"; 

WS 212 INPUT tt2,PWS:IF PW$="N" THEN 220 
SN 213 5GE=1:GOSUB 1000:5GE=0 
VW 220 ? "QWHAT WOULD YOU LIKE YOUR PA55W 
ORD":? "TO BE?":? "20 CHARACTERS MAX." 
WF 230 ? "NO CONTROL CHARACTERS OR INVERS 
E ! 4" 

EP 240 ? "PASSWORD:";:INPUT tt2,PW$ 

JO 250 IF LEN(PW$)>20 THEN ? 

"IGOTO 240 


20 CHARACTE 


OH 260 FOR A=1 TO LEN(PWS) 


PO 270 IF ASC(PW$(A,A))>31 AND A5C(PWS(A, 
A))<125 THEN NEXT A:G0T0 290_ 


WO CONTROL CHARACTERS OR INVERSI 


a®H"!G0T0 240 

MI 290 ? "YOUR PASSWORD I5:":PWS:? "IS TH 
IS CORRECT? ";:INPUT tt2,AS:IF AS(1,1)< 
>"Y" THEN 220 

AW 30O ? "ISPLEASE STAND BY - INITIALIZING 
DATA.,":REST0RE : SE = 0 
AX 310 FOR Arl TO 442 

JN 320 READ D:SE = SE + D:DS (A)= CHRS (D) : NEXT 
A:FOR A = 1 TO 70:D$(442 + A)-CHR$ (0) :NEXT 
A 

VT 330 DS(14,15)=P$:DS(191,192)=PS:DS(206 
,207)-PS:DS(225,226)=PS:DS(259,260)= P$ 
:D$(313,314)=P$:D$(352,353)=P$ 

PX 340 DS(158,158)-CHR$(K1):DS(159,159)-C 
HRS (K2) 

XE 350 IF SE O 42148 THEN ? "ERROR IN DATA 
STATEMENTS."SEND 

PM 360 FOR A = 1 TO LEN(PWS) :D$ (229 +A,229 +A 
)-CHFtS ( A5C (PWS (A, A) ) *2):NEXT A 
EV 370 NS-INT(RND(l)#245)+8:D$(427,427)-C 
HRS (NS) 

TO 380 ? "4WRITING PROGRAM..." 

FU 390 DSK-768:SE-4:TT-1:RW-87 
FL 40O DSKINV$="h S04" 

PR 410 POKE DSK+1,1 

VU 420 B$=DS(TT,TT+127):G0SUB 440:TT-TT+1 
28:SE = SE + l:IF SE<8 THEN 420 
OB 430 GOTO 660 

ZB 440 AD=ADR(BS):P0KE DSK+2,RW 
MZ 450 HIGH-INT (AD/256) :L0W=AD-(HIGH*256) 
OJ 460 POKE DSK+4,L0W:P0KE DSK+5,HIGH 
SX 470 SHI = INT (SE/256) :SLO^SE-(SHI*256) 

ST 480 POKE DSK+10,SLO:POKE DSK+11,SHI 
UO 490 A^USR (ADR (DSKINVS)) :IF PEEK(DSK + 3) 
<>i THEN ? "QSTATUS ERROR- ";PEEK(D5K+ 
3):G0T0 440 
ZB 500 RETURN 

JT 510 DATA 162,0,142,198,2,189,162,8,240 
,21,134,255,32,164,246,162,16,160,0,13 
6,208,253,202,208,248,166,255 
FM 520 DATA 232,76,133,8,76,23,9,125,80,4 
7,87,32,45,32,40,99,41,32,49,57,56,53, 
32,65,78,65,76,79,71,32,67,79 
TD 530 DATA 77,80,85,84,73,78,71,155,80,8 
2,79,71,82,65,77,32,66,89,58,32,74,73, 
77,32,69,72,78,73,78,71,69,82 
BO 540 DATA 155,80,65,83,83,87,79,82,68,5 

8.30.30.30.30.30.30.30.30.30.255.255.2 
55,255,255,157,157,157,157,157 

HR 550 DATA 157,157,157,157,157,29,29,29, 
29,29,29,29,29,29,29,31,31,31,31,31,31 
,31,31,31,31,31,31,31,31,0,0 
JV 560 DATA 169,0,141,22,9,32,226,246,201 
,155,240,86,201,126,240,46,24,201,32,1 
44,240,201,125,176,236,141,21 
CA 570 DATA 9,24,173,22,9,201,20,144,8,16 
9,253,32,164,246,76,28,9,173,21,9,174, 
22,9,157,2,1,32,164,246,238,22 
GK 580 DATA 9,76,28,9,173,22,9,240,194,20 

6.22.9.169.126.32.164.246.76.28.9.32.3 
2,32,32,32,32,32,32,32 

GL 590 DATA 32,32,32,32,32,32,32,32,32,32 
,32,169,155,174,22,9,157,2,1,32,164,24 
6,162,0,24,126,101,9,232 
VL 60O DATA 224,21,208,247,162,0,139,101, 
9,221,2,1,208,4,232,76,145,9,189,101,9 
,201,16,208,10,189,2,1,201,155 
OA 610 DATA 208,3,76,213,9,162,0,139,192, 
9,240,249,134,255,32,164,246,166,255,2 
32,76,176,9,155,253,126,80,65 
HL 620 DATA 83,83,87,79,82,68,32,63,69,78 
,73,69,68,33,155,0,162,0,189,231,9,2(0 
,28,134,255,32,164,246,166,255 
51 630 DATA 232,76,215,9, 155,66.1.1:1, Utl, A 
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16,105,110,103,32,68,79,83,46,46,46,15 
5,0,169,4,141,164,7,169,0,141 
ME 640 DATA 163,7,162,0,189,18,10,157,0,4 
,232,224,40,208,245,76,20,7,24,173,10, 
3,201,105,144,28,201,112,176 
GN 650 DATA 24,173,11,3,201,1,208,17,24,1 
73,10,3,105,0,141,10,3,173,11,3,105,0, 
141,11,3,32,89,228,96 
WE 660 SE=361:RW=82:G0SUB 440:LET D0S$=B$ 
:RW=87 

RV 670 B$=N0$:5E=361:G0SUB 440 
MB 680 FOR J=361+NS TO 368+N5:SE =J:B$=NO$ 
:G05UB 440 
GV 690 NEXT J 

AG 700 SE=361+SN:B$=D0S$:G0SUB 440 
EM 710 B$=NO$:FOR A = 1 TO 128 STEP 16:B$(A 
,A)= "B":NEXT A 

Sy 720 B$(6,16)="ThiS Disk ■': B$ (22, 32? =" 
has been ■■: B$ (38.48) -" EEEjHgigS " : B 
$(54,64)="By: P/W!!! " 

FI 730 B$(70,80)="-":B$(86,96)= 

11 Cc3 1985 " : B$ (102,112) ="By : ANALOG 

":B$(118)="C0MPUTING " 

ND 740 SE=361:G05UB 440 

KY 750 B$(6,16)="| ---1 ••: B$ (22,32) =’• 

PrograM by:••:BSC38,48J:"J. Ehninger":B 
$(54,64) =" 

VJ 760 B$ (70, 80) = " : B$ (86,96) = 

" 1:1 si-Tilin ":B$(102,128)=" 

NT 770 SE-362:GOSUB 440 

KI 780 B$=D0S$:B$(1,1)= "C":SE=361+NS:G0SU 
B 440 

LV 790 SE=1:RW=82:G05UB 440:RW=87:B$(2,2) 
= CHR$ (7) :B$(8,9)= M Ci":G0SUB 440:G0SUB 
830 

HZ 800 ? "OK! YOU ARE ALL READY! REMEMB 
ER":? "YOUR PASSWORD: ";PW$:? 

ZP 810 ? "PRESS RETURN TO BOOT P/W DISK!" 

;:GET tt3,D:IF D<>155 THEN 810 
RH 820 ANALOG = USR (58487) 

UZ 830 SE-360:RW-82:G0SUB 440 

AD 840 A-56+ (NS/8) :ME$="¥¥":B$(A,A + l)= ME$ 

BY 850 B$(4,4)= CHR$(ASC(B$ (4,4)) _ 16) 

XZ 860 SE-36 0:RM-87:G0SUB 440:RETURN 
XU 1000 REM 

ws ioio rem La-v^M:B4;i:M:[ri4:TP7rF«!j 

RX 1020 Dl-PEEK (1955) :D2-PEEK (1956) 

WO 1040 GRAPHICS 0:SETCOLOR 2,0.0:DIM BUF 
FER$(FRE(0)-50O),W0W$(30),FN$(30),KITE 
$(10) 

XZ 1050 ? "ISP/W COPY+ 4.0 - BY JIM EHNING 
ER":TRAP 1290 

CO 1060 ? "(C) 1985 ANALOG COMPUTING":? 

JR 1070 ? "►A. DOS to P/W" 

OM 1080 ? "►B. P/W to DOS" 

AO 1085 ? "►C. EXIT TO P/W":? 

KZ 1090 ? "►SELECT:";:INPUT 82,KITE$ 

KC 11 00 IF KITE $<"A" OR KITE$>"C" THEN ? 

"►I.H. Mi] h WiC ":GOTO 1090 
XQ 1110 ? "►FILE:";: INPUT 82 ,W0W$:FN$-"D1 
:":FN$(4)=wow$ 

RJ 1120 ? "INSERT SOURCE DISK, HIT RETURN 
"JINPUT 82,W0W$ 

OB 1125 IF SGE THEN 1150 

WR 1130 IF KITE$="A" THEN POKE 1955,89:P0 
KE 1956,228 

AZ 1140 IF KITE$="B" THEN POKE 1955,0:P0K 
E 1956,4 

NX 1150 OPEN 8i,4,0,FN$ 

XX 1160 A$(255)= " ":BUFFER$="" 

DH 1170 TRAP 1175:XI0 7,81,4,0,A$:BUFFERS 
(LEHCBUFFER$)+1)=A$:G0T0 1170 
EE 1175 IF PEEK(195)=5 THEN ? "PROGRAM TO 
0 LARGE.“-.END 

UH 1180 IF PEEK (195) 0136 THEN 1290 
RC 1190 TRAP 1290IIF PEEK(856) THEN BUFFE 
R$ (LEN(BUFFERS)+1)= A$(1,PEEK (8 56)) 


MN 1200 CLOSE 81 

CT 1210 ? "INSERT DESTINATION, HIT RETURN 
":INPUT 82,WOWS 
PZ 1215 IF SGE THEN 1240 

XG 1220 IF KITE$="B" THEN POKE 1955,89:P0 
KE 1956,228 

AI 1230 IF KITE$="A" THEN POKE 1955,0:P0K 
E 1956,4 

OA 1240 OPEN 81,8,0.FN$ 

LK 1250 ? 81;BUFFER$;:CL05E 81 
VN 1260 ? "COPY+ COMPLETE!":? "(A)nother 
copy or (E)xit:“;:INPUT 82,W0W$:IF WOW 
$(1,1)="A" THEN 1050 
IR 1270 POKE 1955,Di:POKE 1956,D2 
UZ 1280 TRAP 40O00:RETURN 
TW 1290 ? "COPY+ ERROR- ";PEEK (195) :END 

• 


Listing 2. 
Assembly listing. 


O1O0 .OPT NOLIST 
0110 *-$880 
0120 ; 

0130 ; 

0140 ; 

0150 ; 

0160 ; 

0170 ; 

0180 ; 

0190 ; OS EQUATES! 

0200 ; 

0210 GETKEY =$F6E2 
0220 C0L0R2 =$02C6 
0230 PRINTCHR=$F6A4 
0240 DOSVEC =$07A2 
0250 CHARS =$0102 
0260 BOOTDOS =$0714 
0270 ; 

0280 LDX 8$00 
0290 STX C0L0R2 
0300 PRINT 
0310 LDA DATA,X 
0320 BEQ 5TARGATE 
0330 STX $FF 
0340 JSR PRINTCHR 
0350 LDX 8$10 
0360 WHX 
0370 LDY 8$O0 
0380 WHY 
0390 DEY 
0400 BNE WHY 
0410 DEX 
0420 BNE WHX 
0430 LDX $FF 
0440 INX 
0450 JMP PRINT 
0460 STARGATE 
0470 JMP OTAY 
0480 DATA 
0490 .BYTE 125,"P/W - " 

0500 .BYTE "(C) 1985 ANALOG " 
0510 .BYTE "COMPUTING",155 
0520 .BYTE "PROGRAM BY: " 

0530 .BYTE "JIM EHNINGER",155 
0540 .BYTE "PASSWORD:" 

0550 .BYTE " 

0560 .BYTE " 


bet rid of 
that color! 
Read the 
welcone 
Message, and 
print it to 
the screen, 
put in a delay 
so it looks 
neat. 

Isn't this 
just like 
WarGawes? 

Are we through 

dilly-dallying 

around? 

check. . . 

no, keep going 

YES! lets get 

started... 

Data for MSG 


+-+ 

|P/W ASSEMBLY LISTINGl 
By: Jin Ehninger 
|USES ASM/EDITOR CtM)| 
+-+ 


0570 TEMP BRK 
0580 NUMS BRK 
0590 ; 

0600 OTAY 
0610 LDA 8$O0 
0620 STA NUMS 
0630 JIMCO 


Tewp location 
8 of chars. 

Put zip into 
the nuMber 
count location 
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2 Password continued 


0640 

JSR 

GETKEY 

;Get a key. 

1130 

CMP CHARS,H 

jwon the prize! 

0650 

CMP 

8$9B 

;is it RETURN? 

1140 

BNE LATER 

jif not, later. 

0660 

BEQ 

HEDONE 

JYES-Check P/W 

1150 

INK 

j keep going... 

0670 

CMP 

tt$7E 

jis it BACK S? 

1160 

JMP OUTTA 

jCheck it! 

0680 

BEQ 

GETDOWN 

;YES-Decrewent! 

1170 

LATER 

jLet's see 

0690 

CLC 


jClear the way! 

1180 

LDA HISPW,H 

jwhere we ended 

O700 

CMP 

tt$20 

Jis it < 32? 

1190 

CMP 8$FF 

jup. Is it FF? 

0710 

BCC 

JIMCO 

jYES! Branch! 

1200 

BNE YELL 

j NO! A FAKE! 

0720 

CMP 

«$7D 

;is it >124? 

1210 

LDA CHARS,K 

j Mabye so. . 

0730 

BC5 

JIMCO 

; YES! Leave! 

1220 

CMP tt$9B 

j The RETURN! 

0740 

5T A 

TEMP 

jlt'S OK. 

1230 

BNE YELL 

jiMpersonator! 

0750 

CLC 


j Ki11 the FLAG! 

1240 

JMP ITSHIM 

j YES! WelcoMe! 

0760 

LDA 

NUMS 

jGet the awount 

1250 

YELL 

jAllright, so 

0770 

CMP 

«$14 

jis it over 20? 

1260 

LDH 8$0O 

jyou are the 

0780 

BCC 

LESS20 

jif not, branch 

1270 

SCREAM 

jintruder? 

0790 

LDA 

«$FD 

j YES! Screaw 

1280 

LDA BALLOUT,K 

jScreaM at hiM! 

0800 

JSR 

PRINTCHR 

j at hiM! CTRL-2 

1290 

BEQ YELL 

j Shoot hiM at 

0810 

JMP 

JIMCO 

j Another key... 

1300 

STH $FF 

jdawn! Attack 

0820 

LE5520 

Jit is Ok, add 

1310 

JSR PRINTCHR 

jMen! Two ARMS, 

0830 

LDA 

TEMP 

jthe key onto 

1320 

LDH $FF 

jTwo Legs! 

0840 

LDH 

NUMS 

jthe list of 

1330 

INH 

JSCREAM AT HIM! 

0850 

5TA 

CHARS,H 

jkeys already 

1340 

JMP SCREAM 

jDon't let hiM 

0860 

J5R 

PRINTCHR 

jentered, print 

1350 

BALLOUT 

j escape ! ! ! 

0870 

INC 

NUMS 

jit, and INC! 

1360 

.BYTE 155,253 

, 126 

0880 

JMP 

JIMCO 

j get another . . . 

1370 

.BYTE "PASSWORD " 

0890 

GETDOWN 

jPressed BACK 5 

1380 

.BYTE "DENIED 

!",155,0 

0900 

LD A 

NUMS 

jis he < 0? 

1390 

ITSHIM 

j Hey guy! 

0910 

BEQ 

JIMCO 

j YES! get key.. 

1400 

LDH tt$0O 

jLet's insure 

0920 

DEC 

NUMS 

jDown baby! 

1410 

HELLO 

j hiM by telling 

0930 

LD A 

tt$7E 

jErase the 

1420 

LDA WELCOME,H 

j hi m we are 

0940 

JSR 

PRINTCHR 

j Mistake. 

1430 

BEQ BOOTDOS 

jbooting up the 

0950 

JMP 

JIMCO 

jget key. 

1440 

STH $FF 

j D i Sk . 

0960 

HISPW 

;His Password! 

1450 

JSR PRINTCHR 

jHe is waiting 

0970 

.BYTE " 

I ■ 

1460 

LDH $FF 

jfor the 

0980 

HED0NE 

jPressed RETURN 

1470 

INK 

j READY prOMpt.. 

0990 

LD A 

»$9B 

jErase all the 

1480 

JMP HELLO 

j Keep printing! 

1000 

LDH 

NUMS 

jold entries 

1490 

WELCOME 

;The data: 

1010 

STA 

CHARS,H 

jhe wanted 

1500 

.BYTE 155,"Booting " 

1020 

JSR 

PRINTCHR 

j erased. 

1510 

. BYTE "DOS. . . 

',155,0 

1030 

LDH 

tt$O0 

jDecode the 

1520 

BOOTDOS 

jChange DOS to 

1040 

CHANGE 

jMessage so we 

1530 

LDA 8$0O 

j juMp to our 

1050 

CLC 


jean decipher 

1540 

STA DOSVEC+1 

jroutine every 

1060 

ROR 

HISPW,X 

jwhat is trying 

1550 

LDA 8$04 

j tiMe! 

1070 

INH 


;to say! 

1560 

STA DOSVEC 

jAnd we boot! 

1080 

CPH 

8$15 

jWe through? 

1570 

JMP BOOTDOS 

j L8R days... 

1090 

BNE 

CHANGE 

jNo-keep going! 

1580 


jModeMs call: 

1100 

LDH 

«$oo 

j Now let's see 

1590 

END. 

j C801) 272-1518 

1110 

OUTTA 

jif the Man 




1120 

LDA 

HISPW,H 

jat the keys 

• 
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by Donald E. Glover 

When I purchased my Atari 1020 printer/plotter, I was 
disappointed that no program was provided to plot on pa¬ 
per screens drawn in the standard Atari graphics modes. 
The Dumpl020 gives you such a screen dump routine 
(DUMP1020), written in BASIC. This article includes in¬ 
structions for the program and examples of its use with 
programs published in ANALOG Computing. 

Program logic. 

(1) The graphics mode is determined by a variable 
set by the user. 

(2) The user is given the option of just outlining 
(fast] or completely filling (slower) pixels not set to 
background color (color 0). 

(3) An appropriate frame is drawn. 

(4) Each pixel of each row on the screen is tested 
for a non-background color. If a non-background col¬ 
or is found, the pixel is outlined or filled on paper, 
depending on the decision made in (2), above. Note 
that the screen is completely scamied once for each 
color. This is more efficient than scanning the screen 
once and checking for all three colors, because of the 
length of time required to change pens. 

A BASIC screen dump. 

After entering Dumpl020 (Listing 1), it should be LISTed 
to disk or tape. It can then be merged with a main pro¬ 
gram by using the BASIC command, ENTER. Dumpl020, 
by starting at Line 32000 and using variable names which 


begin with ZZ, is designed to be merged into most BA¬ 
SIC programs without conflict. (Dumpl020 can be easily 
renumbered by a renumber utility, or the RENUM com¬ 
mand in BASIC XL, if the main program has line num¬ 
bers within its range.) 

The picture on the TV screen is plotted on paper by call¬ 
ing the plotting subroutine (GOSUB 32013) from the ap¬ 
propriate part of the main program. Before you make this 
call, the variable ZZFILL must be set to 1 if you desire 
to fill the pixels, or 0 if you do not. Next ZZMODE should 
be set to a legal BASIC screen mode (3-8, 19-24, 15 or 31). 
Note that mode 15(7+) is supported, even on non-XL com¬ 
puters (see the example below). 

Finally, the initialization subroutine (GOSUB 32087) 
must be called prior to the plotting subroutine. This call 
should be made at the beginning of the main program. 
If the initialization routine is called at some other point, 
it may move BASIC arrays which the main program as¬ 
sumes are fixed. This could cause problems, if the main 
program is to continue running after the plot has finished. 

Examples. 

The BASIC version of Dumpl020 is demonstrated us¬ 
ing the program Space Assault, found in issue 13. After 
you’ve loaded Space Assault, add the following lines: 

1050 GOSUB 32087 

1395 ZZM0DE-7+16:ZZFILL=l:GOSUB 32013 

Now, merge Dumpl020 with the Space Assault program 
by using the ENTER command, then run the program. 
When the joystick trigger is pressed to shoot an enemy 
ship, the screen (including the “fission beam”) will be fro- 
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zen and dumped to the 1020 plotter. The player shapes 
will, of course, not be plotted. 

The program from the article Graphics 7+ Handler 
(from issue 11 of ANALOG Computing is used to demon¬ 
strate Dumpl020 in graphics mode 15. After loading that 
program, add the following lines: 

10 GOSUB 32087 

410 IF PEEK(764)<>255 THEN ZZFILL=i:ZZ 

M0DE=15+16:GOSUB 32013:END 

Again, merge Dumpl020 with this program and run it. 
When you wish to plot the display on paper, hit the SPACE 
BAR. 

Speeding things up. 

BASIC is slow. For example, it will take four to five 
minutes before the first pixel is plotted for Space Assault. 
However, if the main program doesn’t use Lines 0 through 
8 (or if Lines 0-8 are just comments and can be deleted), 
the following modifications to Dumpl020 will make the 
plotting subroutine run much faster. 

(1) Renumber Lines 32024 to 32030 of the plotting 

subroutine to 1 through 7. 

(2) Change the new Line 2 to: 

2 IF IF ZZM0DE=15 THEN GOSUB 32073 

:G0T0 4 

(3) Add the following lines: 

0 GOTO Cfirst line of wain prograw 

-1000 for SPACE ASSAULT) 

8 RETURN 

32024 GOSUB 1 

(4) Delete Lines 32025 through 32030. 

The program, as modified here, works in a way identi¬ 
cal to the original. However, the modification moves the 
most often executed inner loop of Dumpl020’s three nest¬ 
ed FOR loops to the beginning, which greatly speeds up 
execution. (With BASIC XL from OSS, the above modifi¬ 
cations are unnecessary. Simply run the program in the 
FAST mode.) 

Program enhancements. 

These routines can be added to any program using stan¬ 
dard graphics modes, but beware of programs that start 
with a standard display list, then change it. An interest¬ 
ing modification would have to be Dumpl020 switch 
graphics modes and screen memory locations as dictated 
by the commands in such nonstandard display lists. 

Also, if more pen colors were available, the program 
could easily be modified to work in graphics modes 9, 10 
and 11. The program would have to stop every four colors, 
to allow the pens to be changed. 

Finally, Dumpl020 could be expanded to work in graph¬ 
ics modes 1 and 2. This would require using the data in 
screen memory as pointers into the character memory. 
With these modifications, the program could be turned 
into a generalized plotting routine, which would plot vir¬ 
tually any display created on the Atari. R 


The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47 of ANALOG Computing. 


Listing 1. 

BASIC listing. 

UK 32000 
XV 32001 
GT 32002 
HY 32003 
YK 32004 
VJ 32005 
FH 32006 
QA 32007 
NE 32008 

5E M0DE5+16 

PE 32008 REM MUST INITIALIZE BEFORE CALLI 
NG MAIN PROGRAM USING GOSUB 32082 
0T 32010 REM ZZ0,ZZN AND ZZS ARE THE SAME 
AS 0LDC0L0R,NEWC0L0R AND SCREENC0L0R 
IN ACTION! PROGRAM 

ON 32011 REM ALL OTHER VARIABLES ARE THE 
SAME AS THE ACTION! VARIABLES PREFIXED 
BY ZZ 

DZ 32012 REM EXCEPT FOR ZZA-ZZF,ZZYINCYP0 
S AND ZZXINCXP0S WHICH WERE NEEDED TO 
HOLD INTERMEDIATE CALCULATIONS 
EB 32013 REM XXXXXX MAIN PROGRAM—CALL AS 
A SUBROUTINE XXXXKXKXXXXXXXX 
KA 32014 GOSUB 32105:REM SET UP SCREEN PA 
RAMETERS 

PC 32015 GOSUB 32080-.REM INITIALIZE PL0TT 
ER 

MP 32016 IF ZZMODE=15 THEN GOSUB 32118:RE 
M GRAPHICS 15(7+) ONLY 
IE 32017 GOSUB 32113:REM DRAW FRAME 
HJ 32018 FOR ZZ5 = 1 TO ZZNUMC0L0RSCZZM0DE) 
-1:REM FOR ALL COLORS 
XF 32018 IF ZZM0DE=15 THEN POKE 88,INT£ZZ 
SCREENADD/256) '.POKE 88 , ZZSCREEN ADD-256 
XPEEK£88):REM GRAPHICS 15C7+) ONLY 
W5 32020 PRINT «2j"C"JZZS:REM PICK PROPER 
COLOR PEN 

FK 32021 FOR ZZYPOS=0 TO ZZYMAX:REM FOR A 
LL ROWS 

GT 32022 IF ZZM0DE=15 THEN GOSUB 32077:GO 
TO 32024:REM GRAPHICS 15(7+) 

RV 32023 LOCATE 0,ZZYPOS,ZZO 
AS 32024 FOR ZZXPOS=0 TO ZZXMAX~1:REM FOR 
ALL COLUMNS EXCEPT LAST 
HG 32025 IF ZZM0DE=15 THEN GOSUB 32073:GO 
TO 32027:REM GRAPHICS 15(7+) 

KP 32026 LOCATE ZZXPOS,ZZYPOS,ZZN 
PG 32027 IF ZZN = ZZS THEN GOSUB 32041.-REM 
THIS IS CURRENT COLOR 
DB 32028 IF (ZZNOZZ0) AND £ZZ0=ZZ5) THEN 
GOSUB 32046:REM WE NEED TO DRAW A BOX 
YT 32028 ZZO-ZZH 
VI 32030 NEXT ZZXPOS 

TG 32031 REM NOW DO LAST COLUMN WHICH IS 
SPECIAL 

DG 32032 IF ZZM0DE=15 THEN GOSUB 32073:G0 
TO 32034:REM GRAPHICS 15(7+) 

CE 32033 LOCATE ZZXMAX,ZZYPOS,ZZN 
OV 32034 IF ZZN=ZZS THEN GOSUB 32041-.REM 
THIS IS CURRENT COLOR 
DE 32035 IF ZZ0=ZZS OR ZZN=ZZS THEN GOSUB 
32046:REM WE NEED TO DRAW A BOX 
YI 32036 ZZ0=ZZN 
XF 32037 NEXT ZZYPOS 
BD 32038 NEXT ZZS 

XN 32038 IF ZZM0DE=15 THEN POKE 88,INT(ZZ 
SCREENADD/256):P0KE 88,ZZSCREENADD-256 
XPEEK(88):REM GRAPHICS 15(7+) ONLY 


REM XXXXX X XXXX XX X X XXXXXX XXXXXXX 


REM X X 
REM X DUMP1020 X 
REM X BY DONALD GLOVER X 
REM X X 


REM XXXXXXXXXXXXXXXXXXXXXXXXXXX 
REM ZZFILL=1—FILL PIXELS 
REM ZZFILL = 0 —NO FILL 
REM ZZM0DE=3,4,5,6,7,8,15 OR THE 
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DT 32040 RETURN 

RA 32041 REM XXXXXXXXX SUBROUTINE EXECUTED 
IF PIXEL COLOR 15 CURRENT COLOR XXXXXX 
** 

IV 32042 ZZXINCXPOS = ZZXINC*ZZXPOS.'ZZYINCY 
POS-ZZYINC*ZZYP05 

MY 32043 IF ZZXPOS-0 THEN PRINT 82;"M"J0, 
",";-ZZYINCYP05:ZZXSTART-0 
GH 32044 IF ZZ0OZZS THEN PRINT 82;"M";ZZ 
XINCXP05;-ZZYINCYP05:ZZXSTART-ZZXI 
NC*ZZXPOS 
ES 32045 RETURN 

NP 32046 REM ***********5UBROUTINE TO DRA 
w BOX XXXXXXXXKXXXXX 

M5 32047 ZZXINCXP05-ZZXINC*ZZXP05:ZZYINCY 
POS-ZZYINC*ZZYP05SZZA-(ZZN-ZZS):ZZB =tZ 
ZXPOS-ZZXMAX) 

NW 32048 IF ZZB AND ZZA THEN GOTO 32053 
LK 32049 REM NOT LAST COLUMN SO DRAW NORM 
AL BOX 

YC 32050 PRINT 82;"D";ZZXINCXPOS;",";-ZZY 
INCYPOS 

BM 32051 PRINT 82;"D";ZZXINCXPOS-ZZY 
INCYPOS-ZZYLENGTH 
FD 32052 GOTO 32056 

OP 32053 REM LAST COLUMN SO DRAW SPECIAL 
BOX 

UF 32054 PRINT tt2j"D";ZZXINCXPOS+ZZXLENGT 
H + l-u ■■ ■ _ ZZYINCYPOS 

MF 32055'PRINT «2;"D";ZZXINCXPOS+ZZXLENGT 
H+l;","J-ZZYINCYPOS-ZZYLENGTH 
EO 32056 PRINT 82;"D";ZZXSTART-ZZYIN 
CYPOS-ZZYLENGTH 

II 32057 PRINT 82J"D"jZZXSTART-ZZYIN 
CYPOS 

AO 32058 IF ZZFILL-1 THEN GOSUB 32062:REM 
FILL PIXEL IF FLAG SET 
OP 32059 PRINT 82;"h";ZZXSTART;",";-ZZYIN 
CYPOS 

EB 32060 RETURN 

R5 32061 REM XXXXXXXXX SUBROUTINE TO FILL 
PIXEL XXXXXXXXXX 

YJ 32062 FOR ZZLINE-0 TO ZZXINC 
OS 32063 PRINT 82j"D";ZZXSTARTj-ZZYIN 
CYPOS-ZZLINE 

VR 32064 IF ZZB AND ZZA THEN GOTO 32068 
KU 32065 REM NOT LAST COLUMN 
UM 32066 PRINT 82;"D";ZZXINCXPOS-ZZY 
INCYPOS-ZZLINE 
DS 32067 GOTO 32070 
TH 32068 REM LAST COLUMN 

WW 32069 PRINT 82J"D"jZZXINCXPOS+ZZXLENGT 
H+l;",";-ZZYINCYPOS-ZZLINE 
BR 32070 NEXT ZZLINE 
EK 32071 RETURN 

DE 32072 REM XX X- XXXXXX SPECIAL LOCATE ROUT 
INE FOR GRAPHICS 15 (7 + ) XXXXXXXXXXX 
YO 32073 IF ZZYPOS-ZZCHANGE THEN POKE 88, 
ZZLOMOD:POKE 89,ZZHIM0D 
XI 32074 LOCATE ZZXPOS,ZZYPOS-ZZCHANGE*tZ 
ZYPOS>=ZZCHANGE),ZZN 
FE 32075 RETURN 

OT 32076 REM *****5PECIAL LOCATE ROUTINE 
FOR GRAPHICS 15C7+)—ZZXP0S=0 ONLY**** 
ZI 32077 IF ZZYPOS-ZZCHANGE THEN POKE 88, 
ZZLOMOD:POKE 89,ZZHIM0D 
LF 32078 LOCATE 0,ZZYPOS-ZZCHANGE*CZZYPOS 
>=ZZCHANGE),ZZO 
FY 32079 RETURN 

MQ 32080 REM ********SUBROUTINE TO INITIA 
LIZE PLOTTER IN GRAPHICS MODE* ******* 
tlH 32081 CLOSE 82:REM JUST TO MAKE SURE 
SG 32082 OPEN 82,8,O,"P:":REM OPEN CHANNE 
L TO 1020 

YK 32083 PRINT 82;CHR$(27);CHR$ (7) :REM PR 
INTER IN GRAPHICS MODE 
FN 32084 PRINT 82J"H":PRINT 82;"I":REM HO 
ME AND INIT PLOTTER 


KC 32085 PRINT 82;"M";0;",";0:REM MOVE PE 
N TO 0,0 
FN 32086 RETURN 

NC 32087 REM XXXXXXXXXXXXX SUBROUTINE TO I 
NITIALIZE ARRAYS ****************** 

ER 32088 DIM ZZMODEXMAX(15),ZZMODEYMAX(15 
),ZZMODEYING C15J,ZZMODEXINC(15) , ZZNUMC 
OLORS (15) 

01 32089 DIM ZZADDFORFULL (15) 

PC 32090 REM FILL ARRAYS 
UG 32091 RESTORE 32098 
XS 32092 FOR ZZTMODE-O TO 15 
KP 32093 READ ZZA,ZZB,ZZC,ZZD,ZZE,ZZF 
YG 32094 ZZMODEXMAX(ZZTMODE)-ZZA:ZZMODEYI 
NC(ZZTMODE)-ZZB 

DV 32095 ZZMODEYMAX(ZZTMODE)-ZZC:ZZMODEXI 
NC(ZZTMODE)-ZZD 

OY 32096 ZZNUMCOLORS(ZZTMODE)-ZZElZZADDFO 
RFULL(ZZTMODE)-ZZF 
FR 32097 NEXT ZZTMODE 
WT 32098 REM DATA FOR ARRAYS 
SK 32099 DATA 0,0,0,0,O,O,O,0,0,0,O,0,0,0 
,0,0,0,0 

WA 32100 DATA 39,12,19,12,4,4,79,6,39,6,2 
,8,79,6,39,6,4,8,159,3,79,3,2,16 
IH 32101 DATA 159,3,79,3,4,16,319,1,159,1 
2 32 

RI 32102 DATA O,0,O,0,O,O,0,O,O,O,O,O,O,0 
,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0 
,0,0,0 

GB 32103 DATA 159,2,159,3,4,32 
OZ 32104 RESTORE :RETURN 

EM 32105 REM **********SUBROUTINE TO SET 
UP SCREEN PARAMETERS* ***KXXXXKXXMX 
TM 32106 IF ZZMODE>15 THEN ZZMODE-ZZMODE- 
16:ZZFULL=1:REM CHECK FOR FULL SCREEN 
MODE 

LY 32107 ZZXMAX-ZZMODEXMAX(ZZMODE) 

OL 32108 ZZYMAX-ZZMODEYMAX(ZZMODE)+ZZFULL 
*ZZADDFORFULL(ZZMODE) 

MI 32109 ZZCHANGE=(ZZYMAX+1)/2:REM USED T 
0 FIND MIDDLE OF SCREEN FOR GRAPHICS 7 
+ 

JH 32110 ZZXINC-ZZMODEXINC(ZZMODE):ZZYINC 
-ZZMODEYINC(ZZMODE) 

MR 32111 ZZXLENGTH=ZZXINC-l:ZZYLENGTH=ZZY 
INC-1:REM LENGTH OF BOX SIDES 
DU 32112 RETURN 

DB 32113 REM ***********SUBROUTINE TO DRA 
W FRAME XXXXXXXXXXXXX 
FK 32114 PRINT 82j"C";O:REM BLACK PEN FOR 
FRAME 

RF 32115 PRINT 82 J "M" J O; ,, , M ; O : PRINT 82;"D 
";ZZXMAX*ZZXINC+ZZXINC;",";o 
KZ 32116 PRINT 82;"D";ZZXMAX*ZZXINC+ZZXIN 
C;",";-ZZYMAX*ZZYINC-ZZYINCSPRINT 82;" 

e>"; o;", ";-zzymax*zzyinc-zzyinc 

LX 32117 PRINT 82;"D"j0;",";O:RETURN 
KJ 32118 REM *********5UBROUTINE USED TO 
FOOL BASIC LOCATE COMMAND FOR GRAPHICS 
15(7+) XXXXXXXXXXXXX 

Y« 32119 ZZSCREENADD-PEEK(88)+256*PEEK(89 
) 

RS 32120 ZZM0DADD-ZZ5CREENADD+ZZCHANGE*40 
5B 32121 ZZHIMOD-INT(ZZMODADD/256) 

BK 32122 ZZLOMOD-ZZMODADD - ZZHIM0D*256 
ZS 32123 IF ZZMODE-15 THEN POKE 87,7:REM 
FOOL BASIC 
El 32124 RETURN 
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ANALOG Computing 
Writers Guidelines 


Make sure your submission 
gets the attention it deserves. 


Many of the following suggestions are applicable to all computer magazines. They assist us in the typesetting ac¬ 
curacy of your submission and in the speed of publication. ANALOG Computing, a monthly magazine, publishes 
new articles, programs and reviews concerning only Atari home computers and their related hardware and soft¬ 
ware. We have published many first-time authors, so by following these guidelines, you may soon find your article 
and byline in the pages of ANALOG Computing. 


1. The upper left-hand corner of the first page should con¬ 
tain your name, address, telephone number and the date 
of your submission. Important: when you submit an article 
to us, you must indicate whether or not it is a simultaneous 
submission. A simultaneous submission is a photocopied 
manuscript submitted to more than one magazine at a time. 
Many magazines do not appreciate this practice (we are 
among them) and view any photocopied manuscripts wari¬ 
ly. We do accept manuscripts text printed on a word proces¬ 
sor. Your article should also be submitted on disk, along with 
any programs which the article requires. 

2. The title of the article should be underlined, starting half¬ 
way down the first page. 

3. If your article is a product review, please include the fol¬ 
lowing information, in lieu of a title: the product’s official 
name; the product’s author (if available); the company pro¬ 
ducing and/or distributing it; the company’s address and 
phone; memory or hardware requirements; and suggested 
retail price. 

4. The following pages should be typed normally (double 
spaced), except that, in the upper right-hand corner, the ti¬ 
tle of the article should be prominent, along with your last 
name and the page number (e.g., Disk/Jones/3). 

5. If your article has program listings of between five and 
twenty lines, you may include them within the text. Longer 
programs should be included with your article, but it is not 
essential. However, it is imperative that we have a copy of 
the program on disk. The disk should be labeled with the 
author’s name and the title of the article or program. 

6. It is much easier for our readers to type in your program 
if you use CHR$(X) values instead of cursor manipulators 
to format your output. In some cases, it may be necessary 
to include special control characters to create special dis¬ 
plays. In these cases, control characters are allowable. 


7. The printers used for ANALOG’S program listings will ac¬ 
cept all Atari control, escape and inverse video characters. 
BASIC programs containing machine language subroutines 
in string variables should use DATA statements to contain 
the machine language numeric values. Authors should avoid 
using the assignment of a string variable to a complex ma¬ 
chine language string literal. For example, (ML$=‘‘mj+7’’) 
could confuse readers. Authors should provide commented 
assembly source code listings for any machine language 
subroutines used in their programs. Any machine language 
game programs should be located in the lowest possible 
amount of memory. 

8. Standard manuscript format—rules such as double spac¬ 
ing, one-inch margins all around the text, standard typing 
paper and typing only on one side of the paper—should be 
followed when submitting an article or review to ANALOG 
Computing. The pages of your submission should be pa¬ 
per clipped together, not stapled. 

9. The best way to write for us is by studying previous is¬ 
sues. For instance, reviews of hardware and software should 
list the information requested in paragraph 3. Your article 
should be written in continuity with ANALOG’S style—the 
acronym BASIC is always all caps, as are keys like RETURN 
and BREAK, while names of other languages are spelled 
in various ways (Pascal, FORTH, assembly). 

10. ANALOG Computing pays between $25 and $390 for 
published articles. The standard rate of pay is $65 per type¬ 
set page, up to six pages total (not including space taken 
for advertisements, art and photos). Articles over that length 
will be paid the flat maximum fee. If we do determine that 
an article may be over eight magazine pages, it may be split 
into two parts or sent back to the author for editing. 


Send all articles, reviews or program submissions to: ANALOG Computing Magazine, Submissions Department, 
P.O. Box 23, Worcester, MA 01603. 
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by Gary Heitz 


Some time ago, I was typing in a magazine program. 
Upon checking my typing, I found several mistakes. There 
had been many variables used which were quite long and 
cryptic. Most of the typing errors occurred on these 
variables. 

I decided I needed a program that would allow for 
programmable keys, to help me accurately type these list¬ 
ings. Easy Type is just that—with a few extras. 

Easy Type has nine programmable keys and four pro¬ 
grammed keys. The programmable keys are available to 
you, to hold a string of any characters you desire, up to 
17 characters in length. 

When typing, you can access the string you want by 
pressing the ESCAPE key and a number. The correct num¬ 
ber is displayed on-screen, along with the contents of the 
string. For example, if you programmed key 1 to contain 
X=USR(THR32DFP], then hit ESC 1 , Easy Type would 
print your string on the screen at the current cursor posi¬ 
tion. This only takes two keystrokes, and you don’t have 
to worry about your accuracy. 

Because the key number to press is displayed on-screen 
along with the string, all you have to remember is to type 
the ESC key first. If you forget, don’t go hunting for this 
article. The screen reminds you that you should hit the 
ESC key and then the number. 

As mentioned above, there are four programmed keys. 


They are ESC-0 (zero), ESC-A, ESC-I and ESC-D. The in¬ 
structions for each of these are also shown on the screen. 

Pressing ESC and 0 will clear the screen and display 
Easy Type’s menu. 

In the menu, choice number one is “Start DATA state¬ 
ments.” The word DATA will be printed after each suc¬ 
ceeding line number entered if you select this option. 
You’ll be asked which type of data you’re going to enter: 
decimal, hexadecimal, or other. If you answer decimal, 
what you type will be checked by a machine language 
subroutine. It will see that you didn’t accidentally type 
a letter, or any other key not appropriate to a decimal data 
statement. The editing keys will still function properly. 

If you choose hexadecimal, the subroutine will make 
sure you’re typing only characters acceptable to a hexa¬ 
decimal data statement. 

Choosing “other” will result in no checking. The word 
DATA will simply be added after each new line number. 

Option number two is “Stop DATA statements.” It does 
just that. The word DATA will no longer be printed after 
each new line number. 

The third choice is “Start/Alter line numbering.” If you 
pick this option, Easy Type will ask for the starting line 
number and the increment used between lines. Type these 
in, and all succeeding lines will be automatically num¬ 
bered for you. 

Option number four is “Stop line numbering.” Choos¬ 
ing this will cancel the automatic line-numbering feature. 
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0 Easy Type continued 


Choice number five is “Make a programmable key.” 
You’ll be asked to input the characters you desire for the 
next available programmable key. You don’t have to enter 
all nine programmable keys at once. You may come back 
later and enter more. 

Option number six is “Save program.” By using this fea¬ 
ture, you can save the entire program onto tape or disk 
without having to BREAK away from the program. 

Menu selection number seven is “Exit menu.” Use this 
option to leave the menu and continue typing your pro¬ 
gram. 

This leaves us with three more programmed keys: ESC- 
A, ESC-I and ESC-D. 

Let’s say you type in a line and hit RETURN. You then 
see that you made a syntax error, or you want to change 
or copy part of that line. Press ESC and A, and the last 
line will be displayed. Alter the line and/or line number, 
then hit RETURN. 

The next programmed key is ESC-I. Some magazine 
programs are numbered in an orderly fashion, with even 
increments between line numbers. Many aren’t. If you’ve 
chosen menu item three (automatic line numbering) and 
need to skip some line numbers, type ESC-I and the next 
line number will appear. 

In the same vein, if your increment is ten, and the pro¬ 
gram you’re entering has a line number whose last digit 
is a five, use ESC-D. Your line number will be decrement¬ 
ed. Hit the BACKSPACE a couple of times, hit the num¬ 
ber 5, and be on your way. 

That’s about all there is. I hope you find Easy Type not 
only easy, but also a time-saving aid to accuracy. There 
may be several things you’d like to see added to Easy Type. 
Please alter it to your needs. The program is made to work 
for you—not you for it. B 

Gary Heitz bought his first Atari computer in 1982. 
Through ANALOG Computing, he has learned to program 
in BASIC and assembly language. 


The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor //, 
in issue 47 of ANALOG Computing. 


Listing 1. 
BASIC listing. 


HK 

MM 

LP 

ftp 

GD 

MO 

PL 


32000 CLR :C0=O:DIM D$ (15),P$(180),TEM 
P$ (17) , L (11) ,FS (15) :P$=" [^TTT1 ":P$(5)=CH 
R$(155):FOR I=C0 TO 9 

32010 L II)-CO:NEXT I:L(1)= 5:D$=CHR$(15 
6):D$(15)=DS:D$(2)=D$:GRAPHICS COtPOKE 
559,CO:POKE 710,178:POKE 712,178 
32020 RESTORE 32591:F0R 1=1 TO 133:REA 
D INtPOKE 1535+1,IN:NEXT I:IN=32190:ME 
NU=32370:GOTO 32080 


CKTMP 


32040 INPUT TEMP$:IF TEMPS="MENU" THEN 
POP :PKEY5=PKEYS-1:G0T0 MENU 
32050 P$ (LEN £P$) +1)=TEMP$:P$ CLEN (PS)+1 
) = CHR$ 1155) :LtPKEY5+i)=LEN£PS) IRETURN 
32060 PKEYS=PKEYS+1:IF PKEYS>9 THEN PK 
EYS = 9:GOTO MENU 


NF 32070 ? "ESC - "J PKEYS j" ";:G05UB 32030: 
GOTO 32060_ 

KY 32080 REM 

KZ 32090 ? CHRS (125) :POKE 82,CO:POSITION 
CO,5:? "1" ;CHR$(27) ;CHR$(156) :■■ ■J'Jin in 

; chrs (27); chrs tise ); 

JB 32100 ? : POSITIO 

N CO CO 

CA 32110 TRAP 32140: X=PKEYS:IF PKEYS>4 TH 
EN X = 4 

NX 32120 FOR I = C0 TO X:? I;" PS (L (I) +1, 
LCI + D-l) : NEXT I 

YM 32130 IF PKEYS>X THEN POKE 82,20:P0SIT 
ION 20,CO:FOR 1=5 TO PKEYS:? Ij M ";PS( 
L (I)+1,L(I + i)-1) :NEXT I 

FD 32140 TRAP 40000:P0KE 82,2:X = U5R (1590) 

: LINE = PEEK (1021)+PEEK(1022)*256 

B5 32150 CLOSE OlJOPEN ttl, 4, CO, "K" : P05ITI 
ON 2,6:LIST LINE:POSITION C0,11:L=C0 

SK 32160 ? "B";CHRS(27);CHR$(156) 

CHRS (27) ;CHR$ (156) j' 


BZ 32170 POSITION 2,12:? :IF NUM THEN ? S 
TART;" "J:START=START+INC 
NH 32180 IF TYPE AND NUM THEN ? "DATA 
OS 32190 REM S53EMSS 

AD 32200 POKE 559,34:GET tti,KEY:IF KEY=27 
THEN 32290 

PK 32210 IF TYPE AND NUM=C0 AND L=C0 AND 
KEY=32 THEN ? " DATA ";:L=1:G0T0 IN 
OM 32220 IF KEY=155 THEN POKE 559,C0:GOTO 
32260 

AC 32230 IF KEY=28 AND PEEK(84)<14 THEN G 
0T0 IN 

RJ 32240 IF TYPE=1 OR TYPE=2 THEN 32580 
JM 32250 ? CH RS(KEY);:GOTO IN 
50 32260 REM 

CC 32270 POSITION 2,20:? "CONT"!POSITION 
C0,ll:P0KE 842,13:STOP 
EG 32280 POKE 842,12:POSITION CO,7:? D$:G 

0T0 32140 _ 

jl 32290 REM 

DZ 32300 GET ttl, KEY: IF KEY = 27 THEN ? CHRS 
£27);CHRS(27);iGOTO IN 
GX 32310 IF KEY=48 THEN START=START~INC:G 
0T0 MENU 

RE 32320 IF KEY=73 THEN 32170 
SJ 32330 IF KEY=68 THEN START=START-INC-I 
NC : GOTO 32170 

RO 32340 IF KEY=65 THEN POSITION 2,12:LI5 
T LINE:POSITION 2,12:? :START=LINE+INC 
:G0T0 IN 

HU 32350 IF KEY<49 OR KEY>PKEYS+57 THEN ? 
CHRS(27)J:G0T0 32250 

YL 32360 TRAP IN:KEY=KEY-48:? PS(L(KEY)+1 
■ L (KEY + 1)- 1) ! :TRAP 400 00iG0T0 IN 
JC 32370 REM :i a. n* TT^i 

HQ 32380 POKE 752,1:P0KE 201,7:? CHRS (125 
) : :IF NUM THEN POSITION CO,CO:? " [UTU 



TTMTuTcTTi. 


32390 IF NUM THEN ? " 




enent the line nuwber 


SM 32400 POSITION 17,2:? :? ," 

0 Start DATA statewents" 

JC 32410 ? :? ,"Q Stop DATA statewents":? 
:? ,"0 Start/Alter line numbering":? 
:? ,"□ Stop line nuMbering" 

IG 32420 ? :? ,"0 Make a prograMwable key 
":? :? ,"B Save prograw":? :? ,"Q Exit 
Menu": POSITION 14,18 

ZM 32430 ? "Your choice?":? : GET ttl,KEY:K 
EY=KEY-48:IF KEY<>1 AND KEY<>2 AND KEY 
04 THEN POKE 752,CO 
NH 32440 IF KEY=1 THEN 32540 
JD 32450 IF KEY=2 THEN TYPE=CO 
RE 32460 IF KEY=3 THEN ? "Enter START,INC 
REMENT"; :TRAP 32460:INPUT START, INC.’TR 
AP 40000:NUM=1 
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HE 32470 IF KEY = 4 THEN NUM=CO 
UF 32480 IF KEY-5 THEN ? CHR$ti25):? :? “ 
Type Hi d.'MI to go to the MENU.":? : 
GOTO 32060 

KJ 32490 IF KEY-6 THEN G05UB 32520:CLOSE 
R1.-5AVE F$:OPEN ttl,4,CO,"K" 

HK 32500 IF KEY = 7 THEN POKE 559,C0:GOTO 3 
2O80 

BP 32510 GOTO MENU 
SCt 32520 IF LEN (F$) THEN RETURN 
GP 32530 POSITION 2,21:? "Dtt:Fi1enane.Ext 
11 ; : INPUT F $ : RETURN 
RH 32540 REM 

ZP 32550 POSITION 2,20:? "Is the data in: 
■■:? “Q DeciMal","□ HexadeciMal 0 oth 
er" 

CD 32560 GET ttl,KEY:TYPE=KEY~48:IF TYPE<1 
OR TYPE>3 THEN ? CHR$C253):GOTO 32550 
OH 32570 H=18+tTYPE-2)*6:GOTO MENU 
AR 32580 X-USR 11536,KEY,H) :IF PEEKI204) T 
HEN 32250 

OJ 32590 ? CHRSC253JJ!GOTO IN 
RM 32591 DATA 104,104,104,133,203,104,104 
,168,169,0,133,204,185,29,6,197,203,24 
0,5,136,208,246,240,4,169,255,133 
FN 32592 DATA 204,96,0,28,29,30,31,126,25 
4,255,44,48,49,50,51,52,53,54,55,56,57 
,65,66,67,68,69,70 

CH 32593 DATA 169,0,170,141,0,4,141,1,4,1 
41,253,3,141,254,3,165,136,133,203,165 
,137,133,204,160,1,177,203 
CM 32594 DATA 201,125,240,46,160,0,177,20 
3,141,253,3,200,177,203,141,254,3,238, 
0,4,173,0,4,208,3,238,1 
XV 32595 DATA 4,200,177,203,141,255,3,165 
,203,24,109,255,3,133,203,144,208,230, 
204,224,0,240,202,104,96 
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Use the convenient card at the back of this book 
to order your disk version. 


All 
of the 
programs 
from 

An Atari 
8-Bit Extra 
from ANALOG 
Computing. 


Ready to run, on two 
double-sided disks. 


From the magazine that 
always gives you something 

Extra 


Send for it now! 


P.O. BOX 23, WORCESTER, MA 01603 
(617) 892-9230 




Get the Extra on disk! 


A SPECIAL OFFER FOR EXTRA OWNERS 
2 DISKS — ONLY $24.95 

All the programs from An Atari 
8-Bit Extra from ANALOG 
Computing, ready to run, on 
two double-sided disks. 

Yes! Please send me the disk version. 

Name __ 

Street _ 






MasterCard 
□ VISA 

No._ 


City, State 


Zip Code 


□ Payment enclosed. □ Bill my Master Card or VISA (right). 


Exp. date 
Sign- 


MAGAZINE SUBSCRIPTIONS 


ANALOG ONLY 


ST-LOG ONLY 


ANALOG and ST-LOG 


□ 1 yr. (12 iss.).$28.00 □ 1 yr, (12 iss.).$28.00 

□ 2 yrs. (24 iss.).$52.00 □ 2 yrs. (24 iss.).$52.00 

□ 3 yrs. (36 iss.) . . $76.00 □ 3 yrs. (36 iss.).$7600 

- CANADIAN & MEXICAN RATES (First 

□ 1 yr. (12 iss.).$36.00 

□ 2 yrs. (24 iss.).$68.00 

□ 3 yrs. (36 iss.).$99.00 

- FOREIGN RATES (Surface) - 

□ 1 yr. (12 iss.).$39.00 

□ 2 yrs. (24 iss.).$72.00 

□ 3 yrs. (36 iss.) .$104.00 


1 yr. (12 iss.). $36.00 

2 yrs. (24 iss.).$68.00 

3 yrs. (36 iss.).$99.00 


1 yr (12 iss.).$39.00 

2 yrs. (24 iss.) . $72.00 

3 yrs. (36 iss.) .$104.00 


Check # . 


Bill me. 


O Money Order # _ 

MasterCard 

Exp. date _ 

Card No. _ 


VISA 


Name _ 

Address 
City _ 


□ 1 yr. (12 iss. each) . . .$42.00 

□ 2 yrs. (24 iss. each). $78.00 

□ 3 yrs. (36 iss. each) .$114.00 

Class)- 

□ 1 yr. (12 iss. each) . $54.00 

□ 2 yrs. (24 iss. each) $102.00 

□ 3 yrs. (36 iss. each) $149,00 

C 1 yr. (12 iss.).$59.00 

C 2 yrs. (24 iss. each) $112.00 
C 3 yrs. (36 iss. each) .$165,00 


State _ 


Zip 


PLEASE ALLOW 4 to 6 WEEKS FOR DELIVERY OF FIRST ISSUE. 


DISK/MAGAZINE SUBSCRIPTIONS 


ANALOG DISK 


ST-LOG DISK 


ANALOG and ST-LOG 


□ V 2 yr. (6 iss.) .$59.00 

□ 1 yr. (12 iss.).$105.00 


□ V 2 yr. (6 iss.) .$59.00 

□ 1 yr. (12 iss.).$105.00 


□ ’/2 yr. (6 iss. each) . $95.00 

□ 1 yr. (12 iss. each) . $15900 


- CANADIAN & MEXICAN RATES (First Class)- 

□ V 2 yr. (6 iss.) .... $69.00 □ V 2 yr. (6 iss.).$69.00 □ Vz yr. (6 iss. each) . $109,00 

□ 1 yr. (12 iss.) $119.00 □ 1 yr. (12 iss.) .$119.00 CM yr. (12 iss. each) . $179.00 

-FOREIGN RATES (Surface)- 

□ Vz yr. (6 iss.). . $74.00 □ Vz yr. (6 iss.).$74.00 □ V 2 yr. (6 iss. each) . $114.00 

□ 1 yr. (12 iss.) . . .$126.00 Cl 1 yr. (12 iss.).$126.00 □ 1 yr. (12 iss.) . . $189.00 
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PLEASE ALLOW 4 to 6 WEEKS FOR DELIVERY OF FIRST ISSUE. 
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COMPUTING 


P.O. Box 23 
Worcester, MA 01603 



P.O. Box 625 
Holmes, PA 19043 
























































MIG Alley Ace: Thrilling head-to-head Sabre 
Jet aerial dog fighting includes single player 
flying mode, as well as two player competition. 

Hellcat Ace: Exciting 3-dimensional aerial 
combat over the Pacific in World War II. 

For one to four players. 

Air Ffescut Sensational assault chopper 
rescue raids for daring pilots in solo or team 
configuration. For one to eight players. 


See your local software 
retailer tor this and 
. other exciting Micro- 

rafijt Prose products. Or call 
direct for MC/VI8A 
■ us! t orders. 

The Top Gunner Collection is 
available (or Commodore S4 err¬ 
and Atari XL/XE computers at a 
suoaested retail of only $24:95. 


Screen eholn (rurn Commodore 6<l 


Fly solo or in team configuration 
Maneuver in, 3-D space 
“See and avoid” techniques 
Advanced aerobatics: loops, rolls, G’s, split S’s 
Outfly the enemy 


"You'll experience the wind in your 
face and the intense dog fighting 
action of some of the world's most 
honored and respected combat 
aviators: the original stick-and-mdder 
fidhter pilots! 


MAJOR BILL STEALEY, 
U.SAf. Reserve 
President, MicroPros^ 
(over 3,000 flying hours) 


Guts 

Stamina 

Intense concentration 
Fast reflexes 
Willingness to take risks 
Good eye-hand coordination „ 


When it comes to flying fighter planes 

IT S THE MAN- 
NOT THE MACHINE 

that makes the difference 


— ® 




Commodore 6* ar,d Atari nro registered trademarks of Commodore Electni 


Atari Inc. 


120 Lakefroni Qr»v*, Hunt V alloy, M D 21030 (3 01) 667-1151 
















